ISSN  0316-6295 


THE  TUIIING  LANGUAGE 
REPORT 

Richard  C.  Holt 
James  R.  Cordy 

Technical  Report  CSRG-153 
December  1983 


COMPUTER  SYSTEMS  RESEARCH  GROUP 

UNIVERSITY  OF  TORONTO 


THE  TURING  LANGUAGE 


REPORT 


Richard  C.  Holt 
James  R.  Cordy 


Technical  Report  CSRG-153 
December  1983 


Computer  Systems  Research  Group 
University  of  Toronto 
Toronto,  Canada 
M5S  lAl 


The  Computer  Systems  Research  Group  (CSRG)  is  an  interdisciplinary  group  formed  to  con¬ 
duct  research  and  development  relevant  to  computer  systems  and  their  application.  It  is 
jointly  administered  by  the  Department  of  Electrical  Engineering  and  the  Department  of 
Computer  Science  of  the  University  of  Toronto,  and  is  supported  in  part  by  the  Natural  Sci¬ 
ences  and  Engineering  Research  Council  of  Canada. 


Digitized  by  the  Internet  Archive 
in  2018  with  funding  from 
University  of  Toronto 


https://archive.org/details/technicalreportc153univ 


THE  TURING  LANGUAGE 
REPORT 

By  R.C.  Holt  and  J.R.  Cordy 


Abstract.  This  report  specifies  the  Turing  language.  Turing  is  a  general 
purpose  programming  language  that  is  well  suited  for  teaching  program¬ 
ming.  It  is  designed  to  support  the  development  of  reliable,  efficient  pro¬ 
grams.  It  incorporates  language  features  that  decrease  the  cost  of  program 
maintenance  and  that  support  formal  verification. 

Turing  is  designed  to  be  supported  by  a  user-friendly  compiler  and 
run-time  system  of  modest  size:  these  should  insulate  the  user  from 
vagaries  of  the  underlying  hardware  and  operating  system.  Turing  is  a 
Pascal-like  language  and  incorporates  almost  all  of  Pascal’s  features.  Turing 
alleviates  many  difficulties  with  Pascal;  for  example,  Turing  provides  con¬ 
venient  string  handling,  it  provides  modules,  its  variant  records  (unions) 
are  type  safe,  and  it  has  dynamic  parameters  and  arrays. 
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1.  INTRODUCTION.  TERMINOLOGY  AND  NOTATION 

This  report  specifies  the  Turing  language.  Turing  is  intended  to  be  a 
general  purpose  language,  meaning  that  it  is  potentially  the  language  of 
choice  for  a  wide  class  of  applications.  Because  of  its  combination  of  con¬ 
venience  and  expressive  power  it  is  particularly  attractive  for  learning  and 
teaching.  Because  of  its  clean  syntax,  Turing  programs  arc  relatively  easy 
to  read  and  easy  to  write. 

The  language  improves  reliability  by  disallowing  error-prone  con¬ 
structs.  It  provides  numerous  compile-time  and  run-time  checks  to  catch 
bugs  before  they  cause  disaster.  These  checks  guarantee  that  each  Turing 
program  behaves  according  to  the  Turing  language  definition,  or  else  a 
warning  message  is  printed. 

To  support  maximal  efficiency,  there  is  an  option  to  remove  run-time 
checking.  This  option  allows  well-tested,  heavily  used  Turing  programs  to 
be  extremely  efficient.  Each  construct  in  Turing  is  designed  to  have  an 
obvious,  efficient  implementation  on  current  and  future  computer 
hardware. 

The  Turing  language  has  been  formally  specified  and  is  designed  to 
support  formal  verification  of  program  correctness.  The  design  of  Turing 
has  eliminated  verification  and  security  difficulties  of  Pascal-like  languages. 
For  example,  compile-time  checks  are  used  to  prevent  aliasing  of  variables 
and  side  effects  in  functions.  Aliasing  due  to  pointers  has  been  eliminated 
using  the  concept  of  collections.  Variant  records  (unions)  have  been  made 
type  safe  by  means  of  a  tag  statement  that  explicitly  selects  among  the 
types  of  values  to  be  represented. 

Perhaps  the  most  important  programming  construct  developed  in  the 
last  decade  is  the  module  or  cluster,  which  enforces  information  hiding  and 
supports  data  abstraction.  Turing  incorporates  this  feature,  with  the  result 
that  construction  of  large  programs  as  a  set  of  nearly  independent  parts  is 
relatively  straightforward. 

Turing  is  well  suited  to  interactive  programming;  it  is  intended  for  use 
on  personal  computers  as  well  as  on  traditional  main-frame  computers. 

The  language  is  designed  to  be  easily  and  efficiently  implemented. 
Experience  has  shown  that  a  production  quality  portable  Turing  compiler 
can  be  constructed  in  a  few  man-months. 

1.1  Terminology  and  Basic  Concepts 

This  section  informally  introduces  basic  terms,  such  as  "scope"  and 
"constant",  used  in  describing  the  Turing  language. 

Variables  and  consianis.  A  variable  is  a  named  item  whose  value  can 
be  changed  by  an  assignment  statement.  Example: 

var  /.  int  %  This  declaration  creates  variable  i 

i  :=  W  “/(I  This  assignment  sets  i's  value  to  10 
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This  example  uses  comments  that  begin  with  a  percent  sign  (%)  and  are 
concluded  by  the  end  of  the  line.  Various  items  such  as  variables  are  given 
names;  these  names  are  called  identifiers. 

A  named  constant  is  a  named  item  whose  value  cannot  change.  In  the 
following,  cand  xare  named  constants; 

const  c  ;=  25 

const  -v  .■=  sin(y)**2  %  y  is  a  variable 

In  this  example,  c’s  value  is  known  at  compile  time,  so  it  is  a  compile-time 
constant  (or  manifest  constant).  (See  also  "Compile-Time  Expressions"). 
The  value  of  xis  computed  at  runtime;  it  is  a  rw/7-//me  constant  (or  nonman¬ 
ifest  consiani) .  Since  x's  value  depends  on  variable  v,  different  executions 
of  the  construct  containing  xs  declaration  may  produce  different  values  of 
X  During  the  lifetime  of  each  x,  the  value  of  that  particular  x  remains  con¬ 
stant,  even  though  y  may  change. 

An  explicit  constant  (or  literal  constant)  is  a  constant  that  denotes  its 
own  value;  for  example,  following  are  an  explicit  integer  constant,  an  expli¬ 
cit  boolean  constant  and  an  explicit  string  constant: 

219 

true 

"Have  a  nice  day " 

Scope  and  visibility.  The  textual  lifetime  of  a  named  item  is  called  its 
scope.  For  example,  the  scope  of  z  in  the  following  is  the  body  of  the  begin 
statement. 

begin 

var  z.'real 

...  body  of  begin  statement  ... 

end 

A  declared  item’s  scope  is  begun  by  its  declaration  and  continues  to  the  end 
of  the  construct  in  which  the  declaration  occurs.  An  item’s  declaration  tex- 
tually  precedes  any  use  of  the  item  (except  in  those  cases  in  which  the 
identifier  is  preceded  by  the  forward  keyword). 

The  visibility  (scope)  rules  of  Turing  are  basically  the  same  as  those 
of  the  Algol/Pascal  family  of  languages.  This  means  that  a  declared  item  is 
visible  (can  be  named)  throughout  its  scope,  including  in  subconstructs  of 
the  scope. 

Most  constructs  (variables,  types,  constants,  subprograms  and 
modules)  cannot  be  named  by  an  identifer  that  is  already  visible.  That  is, 
for  most  constructs,  redeclaration  of  names  is  disallowed. 

Certain  constructs  (modules)  in  an  item’s  scope  do  not  automatically 
inherit  the  ability  to  access  the  item.  Modules  must  explicitly  import  items 
that  are  to  be  accessed  in  the  body  of  the  construct. 
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A  subprogram  may  optionally  use  an  import  list  to  specify  items  used 
in  the  subprogram's  body.  Example; 

1  var  /.  int 

2  procedure  increase  (increment:  ini)  %  Increase  i  by  increment 

3  import  (var  /) 

4  /  .  =  /  +  increment 

5  end  increase 

6  increase  (4)  %  Increase  i  by  4 

In  this  example,  variable  /  is  imported  on  line  3;  i  is  imported  var  (as  in 
variable)  indicating  that  /  can  be  changed  in  the  procedure  (in  line  4).  If  / 
were  imported  without  the  var  keyword,  then  /  could  be  inspected,  but  line 
4,  which  changes  /,  would  not  be  allowed.  A  variable  that  is  imported 
non-var  is  called  a  read-only  variable.  If  a  subprogram  does  not  use  an 
import  list,  it  is  considered  to  implicitly  import  any  items  that  it  actually 
references.  By  contrast,  a  module  is  required  to  explicitly  import  items 
accessed  in  the  module’s  body. 

Subprograms.  Turing  has  two  kinds  of  subprograms,  these  are  pro¬ 
cedures  znd  functions.  A  procedure  is  called  by  a  "procedure  call  statement". 
Calls  to  a  function  occur  in  expressions  and  return  a  value  to  be  used  in  the 
expression. 

A  subprogram  header  may  contain  declarations  of  formal  parameters, 
for  example,  line  2  of  the  above  example  declares  increment  as  a  formal 
parameter.  Each  call  to  the  subprogram  must  supply  actual  parameters 
corresponding  to  the  formal  parameters;  for  example  in  line  6  above,  4  is 
an  actual  parameter. 

Modules.  A  module  is  a  construct  used  for  packaging  items  including 
subprograms  and  variables.  Access  to  these  items  is  controlled  by  an  export 
list.  Example; 

module  stack  %  Implement  a  stack  of  integers 

export  (push,  pop)  %  Entries  to  stack  are  push  and  pop 
var  contents: zvTTiy  /../OOofint 
var  top:  0..100  :=  0 
procedure  push(i: ini) 
top  :=  top  +  I 
contents(top)  :=  i 
end  push 

procedure  popfvar  /;int) 
i  :=  contents(top) 
top  :  =  top  —  I 
end  pop 
end  stack 

stack.push(l4)  %  Push  14  onto  the  stack 
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Since  the  module  exports  only  push  and  pop,  these  are  the  only  parts  of  the 
module  that  can  be  accessed  outside  of  the  module.  To  access  an  exported 
item,  one  prefixes  its  name  by  the  module’s  name,  as  in  stack.push. 

Side  effects.  If  executing  a  construct  changes  values  of  items  outside 
of  the  construct,  we  say  it  has  side  effects.  For  example,  the  increase  pro¬ 
cedure  given  as  an  example  above  has  the  side  effect  of  changing  the  value 
of  variable  /.  Turing  prevents  functions  from  having  side  effects.  The 
method  of  guaranteeing  that  functions  have  no  side  effects  is  by  disallowing 
them  from  having  var  parameters  (these  are  parameters  that  can  be 
changed),  by  disallowing  them  from  importing  items  var,  and  by  disallow¬ 
ing  them  from  directly  or  indirectly  importing  procedures  that  import  items 
var. 

Since  expressions  cannot  have  side  effects,  all  calls  to  a  function  with 
the  same  values  of  parameters  and  of  imported  variables  necessarily  return 
the  same  value.  Example: 

x:  =  f(24)  %  Call  function  f  with  24  as  parameter 

y  :  =  f(24)  %  Function  f  does  not  import  x 

After  the  execution  of  these  two  Turing  statements,  it  is  necessarily  true 
that  X  =  y. 

Aliasing.  Given  distinct  visible  identifiers  x  and  aliasing  is  said  to 
exist  if  a  change  to  the  value  of  x  would  change  the  value  of  y.  In  the  fol¬ 
lowing,  suppose  /  and  j  are  aliases  for  the  same  variable. 

/;=  1 
j:=  2 

After  execution  of  these  statements,  /  and  J  (which  are  actually  the  same 
variable)  will  both  have  the  value  2.  Aliasing  causes  havoc  in  formal  pro¬ 
gram  verification,  and  confuses  the  programmer.  For  these  reasons,  Turing 
bans  aliasing.  This  ban  is  enforced  by  placing  constraints  on  those  language 
constructs  which  allow  variables  to  be  renamed.  In  Turing,  the  only  con¬ 
structs  that  rename  variables  are  (1)  reference  parameters  to  subprograms 
and  (2)  the  bind  construct.  Constraints  on  the  use  of  these  two  constructs 
guarantee  that  once  the  new  identifier  is  visible,  either  the  old  identifier  is 
inaccessible  or  both  identifiers  are  read-only. 

Dynamic  arrays.  An  array  is  said  to  be  dynamic  if  its  size  is  not  known 
at  compile  time,  i.e.,  if  its  bounds  are  computed  at  run-time.  Turing  allows 
dynamic  arrays.  Example: 

get  n  %  Read  value  into  variable  n 

var  0.- array  l..no\  real 

This  creates  an  array  (really  a  vector)  called  a  of  n  real  values. 

Parameters  of  subprograms  can  be  dynamic.  For  example,  the  follow¬ 
ing  function  sums  the  first  /  elements  of  an  array. 
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function  sum(b:  nrray  J..*  of  real,  /Vint  7  Jeal 
var  /ow/.  real  .  =  0.0 
for  j:  I..i 


total  :=  total  +  b(i) 


end  for 
result  total 


end  sum 


8  .V  ;=  sum  (a,  10) 


Line  8  calls  the  sum  function  to  add  up  the  first  10  elements  of  array  a. 
Line  1  uses  as  the  upper  bound  of  parameter  b  to  specify  that  b  is  to 
inherit  the  upper  bound  of  its  corresponding  actual  parameter.  The  final 
keyword  real  on  line  1  specifies  that  the  function  returns  a  real  value. 
Lines  3-5  are  a  for  statement;  it  adds  the  first  /  elements  of  array  b  to  total. 
Line  6  returns  the  value  of  total  as  the  value  of  the  function. 

Checking  and  faithful  execution.  An  implementation  of  the  Turing 
language  is  said  to  be  faithful  if  it  meets  the  following  criteria:  the  results  of 
executing  any  Turing  program  will  be  determined  by  the  source  program 
together  with  the  Turing  specification  (this  Report)  or  else  execution  will 
abort  with  a  message  indicating  (1)  the  reason  for  the  abortion  and  (2)  the 
location  in  the  program  where  it  was  executing  at  the  time  of  abortion.  A 
checking  implementation  guarantees  that  execution  is  faithful.  Abortion 
may  occur  only  because  of  (1)  violation  of  a  particular  run-time  constraint, 
such  as  a  subscript  out  of  bounds,  or  (2)  resource  exhaustion.  In  most 
implementations,  the  only  case  of  resource  exhaustion  will  be  due  to  a  lack 
of  storage  space  for  calling  a  subprogram;  however,  in  some  implementa¬ 
tions  resource  exhaustion  may  be  considered  to  occur  for  such  reasons  as 
excessive  processing  time  or  excessive  input/output. 

The  run-time  constraints  are  categorized  as  (1)  mathematical  con¬ 
straints  or  (2)  implementation  constraints.  The  mathematical  constraints 
disallow  those  actions  that  are  clearly  meaningless,  such  as  division  by  zero, 
subscript  out  of  bounds  or  a  false  value  in  an  assert  statement.  Implementa¬ 
tion  constraints  disallow  actions  which  have  a  clear  meaning  but  which  are 
infeasible  due  to  hardware  or  efficiency  reasons,  such  as:  limited  range  of 
int  and  limited  exponent  range  of  real.  Note  that  there  are  compile-time  as 
well  as  run-time  implementation  constraints;  limited  range  of  case  state¬ 
ment  labels  is  an  example  of  a  compile-time  implementation  constraint. 

A  non-checking  implementation  of  Turing  may  omit  any  or  ail  of  the 
run-time  checks  required  for  faithful  implementation;  this  lack  of  checking 
allows  Turing  programs  to  have  efficiency  comparable  to  programs  written 
in  machine-oriented  languages.  A  non-checking  implementation  may 
assume  that  the  user  has  written  his  program  in  such  a  way  that  there  will 
be  no  violations  of  run-time  constraints  nor  resource  exhaustion;  these 
assumptions  may  be  used  for  improving  the  quality  of  generated  code.  A 
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non-checking  implementation  should  provide  documentation  of  the  run¬ 
time  constraints  that  are  not  enforced  and  of  any  resource  exhaustion  that 
is  not  detected. 

This  section  has  introduced  basic  terminology  and  concepts.  The 
remaining  sections  give  the  detailed  specification  of  the  Turing  language. 

1.2  Identifiers  and  Explicit  Constants 

An  identifier  consists  of  a  sequence  of  at  most  50  letters,  digits  and 
underscores  beginning  with  a  letter;  all  these  characters  are  significant  in 
distinguishing  identifiers.  Upper  and  lower  case  letters  are  considered 
identical  in  identifiers  and  keywords,  hence  aa,  aA,  Aa  and  AA  all  represent 
the  same  identifier.  Keywords  and  predefined  identifiers  must  not  be  rede¬ 
clared  (they  are  reserved  words). 

An  explicit  siring  constant  is  a  sequence  of  zero  or  more  characters  sur¬ 
rounded  by  double  quotes.  Within  explicit  string  constants,  the  back  slash 
character  (\)  is  an  escape  to  represent  certain  characters  as  follows:  \"  for 
double  quote,  \n  or  \N  for  end  of  line  character,  \t  or  \T  for  tab,  \f  or  \F 
for  form  feed,  \r  or  \R  for  carriage  return,  \b  or  \B  for  backspace,  \e  or\E 
for  escape,  \d  or\D  for  delete,  and  \\  for  back  slash.  Explicit  string  con¬ 
stants  must  not  cross  line  boundaries.  Within  explicit  string  constants,  the 
following  two  characters  are  disallowed:  eos  and  uninitchar.  The  eos  (end  of 
string)  character  is  an  implementation  dependent  character  that  an  imple¬ 
mentation  may  use  to  mark  the  ends  of  strings.  The  uninitchar  is  an  imple¬ 
mentation  dependent  character  that  an  implementation  may  use  to  mark  a 
string  that  has  not  been  assigned  a  value. 

Character  values  are  ordered  by  either  the  ASCII  or  EBCDIC  collating 
sequence  (see  "Character  Collating  Sequence"). 

An  explicit  integer  constant  is  a  sequence  of  one  or  more  decimal  digits 
optionally  preceded  by  a  plus  or  minus  sign. 

An  explicit  real  constant  consists  of  three  parts:  (1)  an  optional  plus  or 
minus  sign,  (2)  a  significant  digits  part  and  (3)  an  exponent  part.  The 
significant  figures  part  consists  of  a  sequence  of  one  or  more  digits  option¬ 
ally  containing  a  decimal  point.  The  exponent  part  consists  of  the  letter  e 
(or  E)  followed  optionally  by  a  plus  or  minus  sign  followed  by  one  or  more 
digits.  If  the  significant  figures  part  contains  a  decimal  point  then  the 
exponent  part  is  optional.  The  following  are  examples  of  real  explicit  real 
constants. 

2.0  -0.  .1  2e4  -56.1e  +  27 

"Separators"  may  appear  immediately  following  the  initial  sign  of  an  explicit 
real  or  integer  constant;  see  "Comments  and  Separators". 

The  explicit  boolean  constants  are  true  and  false. 
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1.3  Comments  and  Separators 

An  end-of-Une  comment  begins  with  the  character  %  and  ends  at  the 
end  of  the  current  line.  A  bracketed  comment  \s  any  sequence  of  characters 
not  including  comment  brackets  surrounded  by  the  comment  brackets  /* 
and  '/.  Bracketed  comments  may  cross  line  boundaries. 

A  separator  is  a  comment,  blank,  tab,  form  feed  or  end  of  line.  Pro¬ 
grams  are  free-format;  that  is,  the  identifiers,  keywords,  explicit  constants, 
operators  and  special  characters  which  make  up  a  program  may  have  any 
number  of  separators  between  them. 

1.4  Syntactic  Notation 

The  following  syntactic  notation  is  used; 

{item)  means  zero  or  more  of  the  item 
[item]  means  the  item  is  optional 

Be  warned:  although  this  report  uses  braces  {...}  and  brackets  [...]  as  syntac¬ 
tic  notation,  another  use  of  braces  and  brackets  appears  in  the  appendix 
"Short  Forms".  That  appendix  explains  the  use  of  braces  and  brackets  as 
short  forms  for  loop  and  if  statements. 

Keywords  and  special  characters  are  given  in  boldface.  Nonterminals, 
e.g.,  rypeSpecification,  are  given  in  italics.  The  following  abbreviations  are 
used: 

id  for  identifier 
expn  for  expression 
typeSpec  for  typeSpecification 


2.  PROGRAMS  AND  DECLARATIONS 
2.1  Programs 

A  program  consists  of  a  sequence  of  declarations  and  statements. 
A  program  is: 

declarationsA  ndStatements 

A  program  is  executed  by  executing  its  declarations  and  statements. 
DeclarationsA  ndStatements  are: 

{ declarationOrStatemeni\ 

A  declarationOrStatement  is  one  of: 


a.  declaration  (;] 

b.  statement  [  J 
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Each  declaration  or  statement  may  optionally  be  followed  by  a  semicolon. 

2.2  Declarations 

A  declaration  is  one  of  the  following: 

a.  constantDeclaration 

b.  variableDeclaration 

c.  variableBindinf' 

d.  typeDeclaration 

e.  subprogramDeclaration 

f.  moduleDeclaration 

Each  declaration  creates  a  new  identifier  (or  identifiers);  each  new  identifier 
must  be  distinct  from  other  visible  identifiers.  That  is,  redeclaration  of  visi¬ 
ble  identifiers  is  not  allowed.  The  effect  of  the  declaration  (its  scope)  lasts 
to  the  end  of  the  construct  in  which  the  declaration  occurs.  This  will  be  the 
end  of  the  program,  the  end  of  a  subprogram  or  module,  the  end  of  a 
begin,  loop  or  for  statement,  the  end  of  a  then,  elsif  or  else  clause  of  an  if 
statement,  or  the  end  of  a  case  statement  alternative.  An  identifier  must 
be  declared  textually  preceding  any  references  to  it;  the  exception  to  this 
rule  is  the  form  "forward  id  ",  occurring  in  import  lists  and  in  collection 
declarations. 

2.3  Constant  Declarations 

A  constantDeclaration  is  one  of: 

a.  const  [pervasive]  id  [:  typeSpec]  :=  expn 

b.  const  [pervasive]  id:  typeSpec 

:=  init  (initializingValue  {,  initializing  Value]  ) 

An  initializingValue  is  one  of; 

a.  compileTimeExpn 

b.  init  {initializingValue  [, initializingValue]  ) 

Examples: 

const  c  :=  3 

const  5  ;=  "Hello  "  %  The  type  of  s  is  string(5) 

const  X  :=  sin(y)**2 

const  o.array  7..iofint  :=m\t(l,2,3) 

const  A.  array  /..iof  int  .  =  a 

const  c.  array  1..2,  /..2ofint  :=\m{  (1,2,3,4) 

%  Assigns:  c(l,l)  :=  1;  c(l,2)  :=  2;  c(2,l)  3;  c(2,2)  :=  4 

A  constantDeclaration  introduces  a  name  whose  value  is  constant 
throughout  the  scope  of  the  declaration.  The  named  value  is  either  a 
compile-time  constant  or  a  run-time  constant.  See  also  "Compile-Time 
Expressions".  Named  nonscalar  values  are  always  considered  to  be  run- 
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lime  values.  The  initializing  expression  in  form  (a)  may  be  a  compile-lime 
or  run-lime  expression,  and  must  be  assignable  to  the  constant’s  type  (if 
present).  (See  "Type  Equivalence  and  Assignability"). 

The  init  construct  is  used  only  to  initialize  arrays,  records  and  unions. 

All  values  in  an  init  construct  must  be  compile-lime  expressions.  Note 
that  init  may  be  nested  inside  init  to  initialize  records,  unions  or  arrays 
that  contain  other  records,  unions  or  arrays.  The  number  of  elements 
inside  an  init  construct  must  equal  the  number  of  elements  of  the  type 
being  initialized.  For  a  union,  the  init  must  contain  first  the  tag  value  and 
then  the  field  values  corresponding  to  this  lag  value  (sec  discussion  of 
union  types  in  "Types  and  Type  Declarations"). 

Constants  declared  using  pervasive  are  visible  in  all  subconstrucis  of 
the  constant’s  scope.  Such  constants  need  not  be  explicitly  imported. 

2.4  Variable  Declarations 

A  variableDeclaralion  is  one  of: 

a.  var  typeSpec  [:=  expn] 

b.  var  ;=  expn 

c.  var  id{jdi  :  lypeSpec  :=  init  iinitializingValue  [,  initializing  Value]  ) 

d.  var  id[,icfi: 

array  compileTimeExpn..expn  {.compUeTime Expn.. expn]  of  typeSpec 

e.  var  id[jdi:  collection  of  typeSpec 

f.  var  id\,id\\  collection  of  forward  id 

Examples; 

var  J,k:  int  ;  =  /  %  j  and  k  are  assigned  initial  value  1 

var  t  :=  "Sample  output "  %  The  type  of  t  /s  string 

var  IV  array  l..3o\  siniig(6):=\Tx\\  ('John" Fred" Alice” ) 

var  rz.’int 

get  n 

var  viv  array  I..n,  L.noi  real  %  n  by  n  matrix  of  reals 

A  variableDeclaration  creales  a  new  variable  (or  new  variables).  Form 
(a)  allows  optional  initialization  by  an  expression  while  form  (c)  allows  ini¬ 
tialization  by  an  init  clause  (see  "Constant  Declarations").  In  form  (b),  the 
variable’s  type  is  taken  to  be  the  "root"  type  of  the  expn  (see  "Type 
Equivalence  and  Type  Assignability");  this  type  must  not  be  a  dynamic 
array. 

Form  (d)  allows  the  declaration  of  dynamic  arrays,  whose  upper 
bounds  are  run-time  expressions.  Each  upper  bound  must  be  at  least  as 
large  as  its  corresponding  lower  bound.  Note  that  a  dynamic  array  cannot 
be  initialized  in  its  declaration. 

Forms  (e)  and  (f)  are  for  declaring  collections.  A  collection  is  essen¬ 
tially  an  array  whose  elements  are  dynamically  created  and  deleted  at 
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runtime.  Elements  of  a  collection  are  referenced  by  subscripting  the  collec¬ 
tion  name  with  a  variable  of  the  collection’s  pointer  type.  (See  discussion 
of  pointers  in  "Types  and  Type  Declarations".)  This  subscripting  selects  the 
particular  element  of  the  collection  located  by  the  pointer  variable. 

A  collection  must  not  be  declared  in  a  subprogram.  (This  restriction 
is  made  (1)  to  avoid  the  possibility  of  having  a  function’s  value  depend  on 
whether  space  exists  for  a  new  element,  and  (2)  to  avoid  the  possibility  of 
resource  exhaustion  due  to  unreclaimed  space  of  elements  in  collections 
local  to  subprograms.) 

The  keyword  forward  is  used  to  specify  that  the  type  id  of  the  collec¬ 
tion  elements  will  be  given  by  a  later  declaration  in  the  collection’s  scope. 
The  later  declaration  must  appear  at  the  same  level  (in  the  same  list  of 
declarationsAndStatements)  as  the  original  declaration.  This  allows  the 
declaration  of  cyclic  collections,  for  example,  collections  whose  elements 
contain  pointers  to  other  elements  in  the  collection.  A  collection  whose 
element  type  is  forward  can  be  used  only  to  declare  pointers  to  it  until  the 
type’s  declaration  is  given. 

Elements  of  a  collection  are  created  and  deleted  dynamically  using  the 
statements  new  and  free;  see  "Types  and  Type  Declarations"  for  an  exam¬ 
ple.  The  statement  "new  C.p  "  creates  a  new  element  in  the  collection  C 
and  sets  p  to  point  at  it;  however,  if  because  of  resource  exhaustion  the 
new  element  cannot  be  created,  p  is  set  to  the  value  nil(c).  The  statement 
"free  C.p'  deletes  the  element  of  C  pointed  to  by  p  and  sets  p  to  nil(C).  In 
each  case  p  is  passed  as  a  var  parameter  and  must  be  a  variable  of  the 
pointer  type  of  C.  Suppose  pointer  q  is  equal  to  pointer  p  and  the  element 
they  locate  is  deleted  via  "free  C.p We  say  q  is  a  dangling  pointer  because 
it  seems  to  locate  an  element,  but  the  element  no  longer  exists.  A  dangling 
pointer  is  considered  to  be  an  uninitialized  value;  it  cannot  be  assigned, 
compared,  used  as  a  collection  subscript,  or  passed  to  free. 

The  value  nil(C)  is  the  null  pointer  for  the  collection. 

Collections  themselves  cannot  be  assigned,  compared,  passed  as 
parameters,  bound  to,  or  named  by  a  const  declaration. 

2.5  Variable  Binding 

A  variableBinding  is: 

bind  [var]  id  to  variableReference  {,  [var]  id  to  variableReference) 

A  variableBinding  is  used  to  give  a  new  name  to  a  variable  (or  a  part  of  a 
variable).  This  declares  an  identifier  that  is  itself  considered  to  be  a  vari¬ 
able.  The  new  variable  is  considered  to  be  "read-only"  unless  preceded  by 
var  (see  "Restrictions  on  Constants  and  Read  Only  Items").  Example: 

bind  var  xto  a(i),  yto  rj 

This  declares  x  and  y.  which  are  considered  to  be  variables;  y  is  read-only. 
Changing  the  value  of  /  during  the  scope  of  the  bind  does  not  change  the 
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value  denoted  by  x  Variable  a  is  inaccessible  and  r  is  read-only  until  the 
end  of  the  scope  of  the  bind. 

A  module  must  not  contain  as  one  of  its  fields  a  variableBinding. 
(This  restriction  is  made  to  prevent  re-entry  into  the  scope  of  an  existing 
bind . ) 

Turing  does  not  allow  aliasing.  Hence,  the  "root"  identifier  of  the 
variableReference  (the  first  identifier  in  the  reference)  of  a  var  bind 
becomes  invisible  for  the  scope  of  the  binding.  Even  though  the  root 
identifier  is  invisible,  it  cannot  be  redeclared  in  its  scope.  See  also  "Restric¬ 
tions  Preventing  Aliasing".  To  allow  binding  to  different  parts  of  a  variable, 
each  root  identifier  remains  visible  to  the  end  of  the  list  of  bindings  in  the 
variableBinding.  The  new  identifiers  do  not  become  visible  until  the  end  of 
this  list.  Bindings  that  are  var  to  different  parts  of  the  same  variable  must 
be  non-overlapping. 

3.  TYPES 

3.1  Types  and  Type  Declarations 
A  rypeDeclaration  is: 

type  (pervasive)  id:  typeSpec 

A  typeDcclaraiion  gives  a  name  to  a  type.  The  type  name  can  subse¬ 
quently  be  used  in  place  of  the  full  type  definition. 

Named  types  may  optionally  be  declared  pervasive.  Type  names 
declared  using  pervasive  are  visible  in  all  subconstructs  of  the  scope  in 
which  they  are  declared.  Such  types  need  not  be  explicitly  imported. 

A  typeSpec  is  one  of: 

a.  siandardType 

b.  compHeTimeExpn ..  compileTimeExpn 

c.  enum  (  id[j</i  ) 

d.  array  indexType  {,  indexType)  of  typeSpec 

e.  set  of  baseType 

f.  recordType 

g.  union  Type 

h.  pointerType 

i.  namedType 

The  standardTypes  are: 

int 

real 

boolean 

string  [ (  compile TimeElxpn  ) ] 
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The  standard  types  are  implicitly  declared  pervasive  in  the  outermost 
scope. 

The  optional  compile-time  expression  in  a  string  type  is  a  strictly  posi¬ 
tive  integer  value  giving  the  string’s  maximum  length.  If  the  string’s  max¬ 
imum  length  is  omitted,  it  is  given  a  standard  default,  which  will  be  at  least 
255.  Example: 

var  s.' string  .•=  "Hello  there" 

An  implementation  may  limit  the  allowed  values  for  maximum  lengths;  this 
limit  will  be  at  least  255.  Parameters  can  be  declared  to  be  r/vnom/c  strings, 
with  maximum  lengths  declared  as  see  "Subprograms". 

A  scalar  type  is  an  integer,  real,  boolean,  enumerated  type,  set  type, 
subrange  or  pointer.  The  nonscalar  types  are:  strings,  arrays,  records,  and 
union  types. 

An  index  type  is  a  subrange,  enumerated  type  or  a  named  type  which 
is  an  index  type.  Index  types  can  be  used  as  array  subscripts,  as  selectors 
(tags)  for  case  statements  and  union  types,  and  for  base  types  of  sets. 

Form  (b)  is  a  subrange  type.  The  two  expressions  give  the  lower  and 
upper  bounds  of  the  range  of  values  of  the  type.  The  two  expressions  must 
be  both  integers  or  both  of  the  same  enumerated  type.  The  lower  bound 
must  be  less  than  or  equal  to  the  upper  bound.  Example: 

var  i :  1..10  :=  2  %  /  can  be  1,2  ...  up  to  10 

Form  (c)  is  an  enumerated  type.  The  values  of  an  enumerated  type 
are  distinct,  contiguous  and  increasing.  See  definitions  of  the  ord,  succ  and 
functions  in  "Predefined  Functions".  Example: 

type  color: enum  (red, green, blue) 

var  c:  color  :=  color.green 

var  d:  color  :=  succ(c)  %  d  becomes  blue 

The  values  are  denoted  by  the  name  of  the  enumerated  type  followed 
by  a  dot  followed  by  an  identifier;  example:  color.green.  Enumerated  types 
and  their  subranges  are  index  types. 

Form  (d)  is  an  array  type.  Each  indexType  must  be  a  subrange  type, 
an  enumerated  type  or  a  named  type  which  is  an  indexType.  Note  that  vari¬ 
ables  and  parameters  can  be  declared  to  be  dynamic  arrays,  with  run-time 
upper  bounds;  see  "Subprograms".  A  dynamic  array  type  must  not  be  given 
a  name.  Each  indexType  gives  the  range  of  a  subscript.  The  typeSpec  gives 
the  type  of  the  elements  of  the  array. 

Elements  of  an  array  may  be  referenced  using  subscripts  (see  "Vari¬ 
ables  and  Constants”)  and  themselves  used  as  variables  or  constants. 
Arrays  may  be  assigned  (but  not  compared)  as  a  whole. 

Form  (e)  is  a  set  type.  The  baseType  of  the  set  must  be  an  indexType. 
An  implementation  may  limit  the  number  of  items  in  a  baseType,  this 
number  will  be  at  least  31.  A  variable  of  a  set  type  is  assigned  as  values 
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subsets  of  the  entire  set.  See  "Set  Operators  and  Set  Constructors".  Exam¬ 
ple: 

type  smallSet: set  of  0..2 

var  s:  smallSei  :=  smallSeffO,  1)  %  s  contains  0  and  I 
A  record  Type  is: 
record 

id  [,idi  :  type  Spec 
\id[jcfi  :  typeSpec] 

end  record 

Variables  declared  using  a  record  type  have  the  fields  given  by  the 
declarations  in  the  recordType.  Fields  of  a  record  may  be  referenced  using 
the  dot  operator  (see  "Variables  and  Constants")  and  themselves  used  as 
variables  or  constants.  Record  variables  may  be  assigned  (but  not  com¬ 
pared)  as  a  whole. 

A  union  type  (or  variant  record)  is  like  a  record  in  which  there  is  a 
runtime  choice  among  sets  (called  alternatives)  of  accessible  fields.  This 
choice  is  made  by  the  tag  statement,  which  deletes  the  current  set  of  fields 
and  activates  a  new  set. 

A  unionType  is: 

union  [ici\'.  indexType of 

label  compileTimeExpn  {,  compileTimeExpn]  :  [id{,idi:  typeSpec] 

{label  compileTimeExpn  {, compileTimeExpn]  :  [id[,i(f\'.  typeSpec]  } 

(label  :  \id[jc]'.  typeSpec]  ] 
end  union 

Example: 

type  vehicle: enum  {passenger,  farm,  recreational) 
type  vehicle  Record. 

union  kind:  vehicle  of 

label  vehicle,  passenger. 

cylinders:  1..16 
label  vehicle.farm: 

farmClass:  string  ( 10) 

label:  %  No  fields  for  "otherwise”  alternative 

end  union 

var  V.'  vehicleRecord  ;=  init  (vehicle.farm,  "dairy")  %  Set  tag  and  farmClass 

tag  V,  vehicle. passenger  %  Activate  passenger  alternative 
V.  cylinders  :=  6 

The  optional  identifier  following  the  keyword  union  is  the  name  of 
the  tag  of  the  union  type.  If  the  identifier  is  omitted,  the  tag  is  still  con¬ 
sidered  to  exist,  although  a  non-checking  implementation  would  not  need 
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to  represent  it  at  run  time. 

Each  compile-time  expression  following  label  is  called  a  label  value. 
These  values  must  be  distinct  in  a  given  union  type.  Each  label  value  must 
be  assignable  to  the  tag’s  type,  which  is  an  index  type.  Each  labeled  set  of 
declarations  is  called  an  alternative.  The  final  optional  alternative  with  no 
label  expressions  is  called  the  otherwise  alternative. 

An  implementation  may  limit  the  range  of  the  tag’s  type;  its  range, 
from  the  minimum  label  value  to  the  maximum  inclusive,  will  be  at  least 
256. 

The  fields  and  tag  of  a  union  may  be  referenced  using  the  dot  opera¬ 
tor  (see  "Variables  and  Constants"),  and  the  fields  can  be  used  as  variables 
or  constants.  Access  or  assignment  to  a  field  of  an  alternative  is  allowed 
only  when  the  tag’s  value  matches  one  of  the  alternative’s  label  values  (or 
matches  none  of  the  union’s  label  values  for  the  otherwise  alternative).  A 
checking  implementation  checks  for  this  match  at  each  access  or  assignment 
to  a  field.  A  tag  cannot  be  assigned  to  and  must  not  be  the  object  of  a  var 
bind  nor  passed  to  a  var  parameter.  A  union’s  tag  value  is  changed  using 
the  tag  statement  (see  "Statements").  In  a  checking  implementation,  the 
tag  statement  will  actually  change  (uninitialize)  any  existing  field  values.  A 
non-checking  implementation  will  not  necessarily  change  the  fields.  Note 
that  union  types  under  a  checking  implementation  are  "type  safe";  so, 
changing  the  tag  will  not  automatically  change  values  of  one  alternative  to 
be  values  of  another  alternative.  A  union’s  tag  can  be  changed  by  assigning 
to  the  entire  union. 

The  identifiers  declared  as  fields  of  a  record,  tag  and  fields  of  a  union 
type,  or  values  of  an  enumerated  type  must  be  distinct  from  each  other. 
However,  they  need  not  be  distinct  from  other  visible  identifiers.  Fields  of 
records  and  unions  must  not  be  dynamic  arrays. 

A  pointerType  is: 

pointer  to  collectionld 

Variables  declared  using  a  pointerType  are  pointers  to  dynamically  created 
and  deleted  elements  of  the  specified  collection;  see  "Variable  Declarations". 
Pointers  are  used  as  subscripts  of  the  specified  collection  to  select  the  ele¬ 
ment  to  which  they  point.  The  selected  element  can  be  used  as  a  variable 
or  constant.  Pointers  may  be  assigned,  compared  for  equality  and  passed  as 
parameters.  Example: 

var  //sr.*  collection  of  forward  node 
type  node: 
record 

cowren/s."  string  (10) 
wxr;  pointer  to  list 
end  record 

var  pointer  to  list  :=  nil(list) 
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var  another:  poinXer  to  list 

new  list,  another  %  Create  new  list  element 
list  (another). contents  ;=  "  Belj’iuni " 
list(another).next  :=  first 
first  :=  another 

A  namedType  is; 

[modiileld .]  type  Id 

The  lypeld  must  be  a  previously  declared  type  name.  Type  names 
exported  from  a  module  are  referenced  using  the  dot  operator. 

3.2  Type  Equivalence  and  Assignability 

This  section  defines  the  terms  type  equivalence  and  type  assignability. 
Roughly  speaking,  an  actual  parameter  can  be  passed  to  a  var  formal 
parameter  only  if  their  types  are  equivalent,  and  a  value  can  be  assigned  to 
a  variable  (or  a  value  passed  to  a  non-var  parameter)  only  if  the  value’s 
type  is  assignable  to  the  variable’s  type.  Type  equivalence  is  always  deter¬ 
mined  at  compile  time;  assignability  sometimes  cannot  be  determined  until 
run  time  (when  the  target  type  is  a  subrange). 

Two  types  are  defined  to  be  equivalent  if  they  are 

(a)  the  same  standard  type, 

(b)  subranges  with  equal  first  and  last  values, 

(c)  arrays  with  equivalent  index  types  and  equivalent  component  types, 

(d)  strings  with  equal  maximum  lengths, 

(e)  sets  with  equivalent  base  types,  or 

(f)  pointers  to  the  same  collection;  in  addition, 

(g)  a  declared  type  identifier  is  equivalent  to  the  type  it  names,  with  the 
exception  of  opaque  types  (exported  from  modules). 

Outside  of  the  exporting  module  M  an  opaque  type  with  identifier  Tis 
not  equivalent  to  any  other  type.  The  exported  type  M.T  \s  distinct  from 
any  other  type  that  M  exports  or  imports.  A  value  of  type  M.T  can  be 
assigned,  but  cannot  be  compared,  subscripted,  or  field  selected,  and  cannot 
be  an  operand  to  an  operator.  All  that  can  be  done  with  a  value  of  an 
opaque  type  is  to  assign  it  or  to  pass  it  as  a  subprogram  parameter.  See 
"Modules"  for  an  example  using  opaque  types. 

Each  textual  instance  of  a  type  definition  for  an  enumerated,  record  or 
union  type  creates  a  new'  type  that  is  not  equivalent  to  any  other  type 
definition. 

The  int  type  is  not  considered  to  be  equivalent  to  any  integer 
subrange.  The  string  type  without  explicit  maximum  length  is  not  con¬ 
sidered  to  be  equivalent  to  any  string  type  having  an  explicit  maximum 
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length. 

The  root  type  of  any  integer  expression  is  int,  that  of  any  enumerated 
value  is  the  defining  enumerated  type,  that  of  any  string  expression  is 
string  (without  specified  maximum  length),  and  that  of  any  other  value  is 
the  value's  type.  Note  that  the  root  type  of  an  integer  subrange  is  int  and 
that  of  an  enumerated  subrange  is  the  original  enum  type. 

A  value  is  assignable  to  a  type  (called  the  target  type)  if  (1)  the 
value's  root  type  is  equivalent  to  the  target's  root  type  or  (2)  the  value  is 
an  integer  and  the  target  is  real.  These  two  requirements  are  enforced  at 
compile  time.  In  case  (1)  there  is  also  a  runtime  requirement  that  (a)  a 
value  assigned  to  a  target  subrange  is  contained  in  the  subrange,  and  (b)  a 
value  assigned  to  a  target  string  does  not  exceed  the  target's  maximum 
length.  In  case  (2)  the  integer  is  implicitly  converted  to  real.  Throughout 
the  language,  wherever  a  real  expression  is  required,  an  integer  expression 
is  allowed  and  is  converted  to  real  via  an  implicit  call  to  the  predefined 
function  intreal. 

The  type  of  an  expression  passed  to  a  var  parameter  must  be 
equivalent  to  the  formal’s  type.  The  type  of  an  expression  passed  to  a 
non-var  (constant)  parameter  must  be  assignable  to  the  formal’s  type.  A 
dynamic  actual  array  parameter  (a  parameter  with  run-time  computed  upper 
bounds)  can  be  passed  only  to  a  formal  array  parameter  with  *  declared  for 
upper  bounds.  Similarly  a  dynamic  actual  string  parameter  can  be  passed 
only  to  string (*).  See  also  the  discussion  of  parameterType  in  "Subpro¬ 
grams".  Dynamic  strings  can  be  assigned,  but  dynamic  arrays  cannot.  In  an 
assignment  v  :=  e,  a  variable  initialization,  or  const  declaration,  or  an  ini¬ 
tialization  init  V  :=  e,  e  must  be  assignable  to  v  and  neither  v  nor  e  can  be 
dynamic  arrays.  Examples; 

type  smallint:  0..10 
var  i:  smallint 

var  j:  1..100  %  Variable  j  is  assignable  to  i  when  in  range  0..10 

type  smallarray:  array  0..  10 of  real 

var  a:  array  smallint  of  real  %  Equivalent  to  smallarray 

type  rec: 
record 

/.string 
g: real 
end  record 
var  rl:  rec 
var  r2:  rec 

var  r3:  %  Not  equivalent  to  rl  and  r2 

record 

/string 
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g: real 
end  record 

Variables  /  and  J  have  the  same  root  type  (int),  so  one  can  be 
assigned  to  the  other,  given  that  the  assigned  value  is  in  the  target’s 
declared  range.  Array  as  type  is  equivalent  to  the  type  smallarray\  so  a 
could  be  assigned  to  a  variable  or  passed  to  a  formal  parameter  of  type 
smallarray.  The  types  of  rl  and  r2  are  equivalent  and  one  can  be  assigned 
to  the  other.  However,  rfs  type  is  not  equivalent  to  the  type  of  rl  and  r2. 

4.  SUBPROGRAMS  AND  MODULES 

4.1  Subprograms 

A  subprogram  is  a  procedure  or  a  function. 

A  subprogramDeclaraiion  is  one  of: 

a.  subprogramHeader 

[imporlList] 

subprogram  Body 

b.  forward  subprogramHeader 

import  (  [  [var]  (forward]  id[,  [var]  [forward]  id]]) 

c.  body  procedure  id 

subprogramBody 

d.  body  function  id 

subprogramBody 

A  subprogramHeader  is  one  of; 

a.  procedure  [pervasive]  id 

[{parameterDeclaration  (,  parameterDedaration]  )  ] 

b.  function  [pervasive]  id 

[(.parameterDeclaration  {, parameterDeclaration]  )  ]  [/i/]  :  typeSpec 

A  pervasive  subprogram  is  implicitly  imported  into  all  subconstructs 
of  the  current  scope  (including  into  the  subprogram’s  body).  A  subpro¬ 
gram  that  imports  variables  or  modules  (var  or  non-var,  directly  or 
indirectly)  must  not  be  pervasive. 

A  procedure  is  invoked  by  a  procedure  call  statement,  with  actual 
parameters  if  required.  A  function  is  invoked  by  using  its  name,  with 
actual  parameters  if  required,  in  an  expression.  If  a  subprogram  P  has  no 
parameters,  a  call  to  it  does  not  require  parentheses,  i.e.,  the  call  is  of  the 
form  "P"  and  not  "PO  ". 
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A  procedure  may  return  explicitly  by  executing  a  return  statement  or 
implicitly  by  reaching  the  end  of  the  procedure  body.  A  function  returns 
via  a  result  statement  (see  "Statements"). 

Subprograms  may  optionally  take  parameters,  the  types  of  which  are 
defined  in  the  header.  The  parameters  can  be  referred  to  inside  the  subpro¬ 
gram  using  the  names  declared  in  the  header.  Parameters  to  a  procedure 
may  be  declared  using  var,  which  means  the  parameter  is  considered  to  be 
a  variable  inside  the  procedure.  Parameters  declared  without  using  var  are 
considered  to  be  constants.  Functions  are  not  allowed  to  have  any  side 
effects  and  cannot  have  var  parameters. 

The  identifiers  declared  in  a  parameter  list  must  be  distinct  from  each 
other.  However,  they  need  not  be  distinct  from  any  other  visible 
identifiers. 

A  parameterDeclaration  is  one  of; 

a.  [var]  :  parameterType 

b.  subprogramHeader 

Form  (a)  is  used  to  declare  formal  parameters  that  are  var  (variable) 
or  non-var  (constant).  An  actual  parameter  that  is  passed  to  a  var  formal 
must  be  a  variable  whose  type  is  "equivalent"  to  the  formal’s  type.  An 
actual  parameter  that  is  passed  to  a  non-var  formal  parameter  must  be  a 
value  that  is  "assignable"  to  the  formal’s  type.  (See  "Type  Equivalence  and 
Assignability".) 

A  reference  parameter  is  any  non-scalar  or  var  parameter.  Parameters 
that  are  not  reference  parameters  are  called  value  parameters;  a  value 
parameter  is  any  scalar  non-var  parameter.  See  "Restrictions  Preventing 
Aliasing"  for  constraints  on  the  use  of  var  and  reference  parameters. 
Example; 

function  oddO: int):  boolean  %  i  is  a  value  parameter 
result  (i  mod  2)  not  =  0 

end  odd 

Example; 

var  messageCount:\nX  :=  0 

procedure  putMessage(msg: string)  %  msg  is  a  reference  parameter 
messageCount  :=  messageCount  +  1 
put  "Message  number”,  messageCount,  msg 

end  put  Message 

The  second  kind  of  parameterDeclaration,  form  (b),  specifies  a 
parametric  subprogram.  The  corresponding  actual  parameter  must  be  a  sub¬ 
program  identifier.  The  actual  parameter  subprogram  must  have  parameters 
and  result  type  equivalent  to  those  of  the  formal  parameter.  Parametric 
subprograms  are  called  like  other  subprograms.  Declaring  a  parametric 
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subprogram  as  pervasive  has  no  effeci.  Example: 

%  Find  zero  of  parametric  function  f 
function  findZerodunciion  /rr.  reaU.  real, 
left. right, accuracy:  real ):  real 

pre  sign(f(left))  not  =  sign(f(right))  and  accuracy  >  0 
var  L.'real  ;=  left 
var  /?.  real  .  =  right 
var  M:  real 

const  signLeft  :=  sign(f(left)) 
loop 

M  :=  (R  +  U/2 

exit  when  abs(R—  L)  <  =  accuracy 

if  signLeft  =  sign(f(M))  then 
L  :=  M 

else 

R  :=  M 

end  if 
end  loop 
result  M 
end  findZero 

A  parameterType  is  one  of: 

a.  type  Spec 

b.  array  compileTimeExpn ..  *  {,  compileTimeExpn ..  *}  of  typeSpec 

c.  (array  compileTimeExpn ..  *  {,  compileTimeExpn ..  *)  of  ]  string  (  *  ) 

In  forms  (b)  and  (c),  the  upper  bounds  of  the  index  types  of  a 
dynamic  array  parameter  are  declared  as  *  in  which  case  any  array  whose 
element  type  and  index  types’  lower  bounds  are  equivalent  to  the 
parameter's  can  be  passed  to  the  parameter.  In  form  (c),  the  maximum 
length  of  a  dynamic  stung  is  declared  as  *.  For  var  parameters  or  arrays  of 
strings,  the  maximum  length  is  taken  to  be  that  of  the  actual  parameter. 

For  non-array,  non-var  formal  parameters,  the  type  string (*)  is  taken  to 
mean  simply  string.  Note  that  multiple  parameters  declared  using  one 
dynamic  parameter  type  do  not  necessarily  have  the  same  upper  bounds  and 
string  maximum  lengths;  instead  each  parameter  inherits  the  sizes  of  its 
actual  parameter.  The  upper  bounds  and  maximum  lengths  of  dynamic 
parameters  can  be  accessed  using  upper,  see  "Attributes". 

An  importList  is: 
import  ([  [var]  /i/{,[var]  /b]  ]  ) 

If  a  subprogram  has  an  import  list,  it  uses  this  to  specify  identifiers  visible 
outside  the  subprogram  that  are  to  be  visible  in  the  subprogram’s  body. 
Identifiers  not  in  the  list  will  not  be  visible  in  the  body.  Pervasive 
identifiers  need  not  be  imported  (they  are  implicitly  imported).  If  a  sub¬ 
program  does  not  have  an  import  list,  it  is  considered  to  implicitly  import 
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identifiers  that  textually  appear  in  its  body.  An  impliciitly  imported 
identifier  is  considered  to  be  imported  var  if  it  is  assigned  to,  bound  to  var, 
passed  to  a  var  parameter,  or  acted  on  by  a  tag,  new  or  free  statement 
inside  the  subprogram.  The  identifier  is  also  considered  to  be  imported  var 
if  (1)  it  names  a  module  and  (2)  a  procedure  of  this  is  called  in  the  subpro¬ 
gram.  Modules  also  have  import  lists,  and  these  have  the  same  meaning  as 
in  subprograms  with  the  following  difference:  a  module  with  no  explicit 
import  list  is  considered  to  have  this  import  list: 

import  0 

Only  identifiers  that  name  variables  or  modules  can  be  imported  var.  (See 
"Restrictions  on  Constants  and  Read  Only  Items.") 

Functions  are  not  allowed  to  have  side  effects  and  cannot  import  any¬ 
thing  var.  This  restriction  is  transitive;  hence  a  function  cannot  import  a 
procedure  that  directly  or  indirectly  imports  anything  var.  Input/output  is 
considered  to  be  a  side  effect;  hence  functions  cannot  use  get  or  put  state¬ 
ments;  they  must  not  directly  or  indirectly  call  procedures  that  use  these 
statements  or  that  call  the  predefined  procedures.  A  parametric  procedure 
that  is  passed  as  an  actual  parameter  to  a  function  must  not  directly  or 
indirectly  import  anything  var  or  directly  or  indirectly  use  the  get  and  put 
statements  or  the  predefined  procedures. 

An  identifier  must  not  be  repeated  in  an  import  list.  It  is  permissible 
to  import  pervasive  identifiers  and  predefined  identifiers. 

When  a  subprogram  P  is  passed  as  a  parametric  subprogram  to  sub¬ 
program  Q,  any  variables  imported  var  directly  or  indirectly  by  P  are  con¬ 
sidered  to  be  var  parameters  passed  to  Q.  Any  variables  imported  directly 
or  indirectly  non-var  by  Pare  considered  to  be  read-only  reference  parame¬ 
ters  passed  to  Q.  This  is  done  to  prevent  potential  aliasing  as  a  result  of  the 
call. 

The  result  type  of  a  function  is  given  by  the  typeSpec  that  follows  the 
function’s  (optional)  parameter  declarations.  The  expression  in  a  function’s 
result  statement  must  be  assignable  to  the  function’s  result  type.  Note  that 
the  result  type  can  be  a  nonscalar,  but  must  not  be  a  dynamic  array  or 
dynamic  string.  The  optional  identifier  preceding  this  typeSpec  is  the  name 
of  the  function’s  result.  This  identifier  can  only  be  referenced  in  the 
function’s  post  assertion. 

A  subprogramBody  \s'. 

[pre  booleanElxpn] 

[init  id:=  expn  {,id expn}] 

[post  booleanExpn] 
declarationsA  ndStatements 
end  id 

The  identifier  following  end  must  be  the  name  of  the  subprogram.  The  pre 
expression  must  be  true  when  the  subprogram  is  called;  the  post  expression 
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must  be  true  when  returning. 

The  init  clause  defines  constants  (the  identifiers  to  the  left  of  each 
assignment  operator  :  =  ).  These  can  only  be  accessed  in  post,  assert  and 
invariant. 

A  forward  subprogram  is  a  subprogram  whose  body  declaration  will  be 
given  later  in  its  scope.  (This  is  the  only  situation  in  which  the  keyword 
body  is  used  as  a  prefix  for  a  subprogram  declaration.)  The  body  declaration 
must  appear  at  the  same  level  (in  the  same  list  of  declarationsAndSiate- 
ments)  as  the  forward  declaration.  The  prefix  forward  in  an  import  list  can 
be  applied  only  to  subprograms.  The  use  of  forward  in  an  import  list  refers 
to  a  subprogram  declared  later  in  the  same  list  of  declarationsAndStaiements. 
Before  a  subprogram  can  be  called,  its  header  as  well  as  headers  of  subpro¬ 
grams  directly  or  indirectly  called  by  it  must  have  appeared.  A  function 
must  not  call  a  forward  procedure.  (This  restriction  is  imposed  to  simplify 
checks  for  side  effects  in  functions).  Forward  subprograms  allow  subpro¬ 
grams  to  be  mutually  recursive.  Example  of  mutual  recursion: 

%  Evaluate  an  input  expression  e  of  the  form  r  {  -I-  r )  where 

%  t  is  of form  /?  {  *  p)  and  p  is  of  form  (  e  )  or  explicit  real  constant 

%  For  example,  the  value  of  1.5  +  3.0  *  (  0.5  +  1.5  J  "halt"  is  7.5 

var  ro/ce/j;  string 

forward  procedure  expnfvar  e Fa/we;  real ) 
import  (forward  term,  var  token) 

forward  procedure  term(v2iT  rFo/we; real) 
import  (forward  primary,  var  token) 

forward  procedure  primarylv^r  pValue:  real) 
import  (expn,  var  token) 

body  procedure  expn 
var  nextValue:rea\ 
term  (e  Value)  %  Evaluate  "  t " 
loop  %  Evaluate  ”{+\]" 

exit  when  token  no{= 
get  token 
term  (next  Value) 
e  Value  :  =  e  Value  -I-  next  Value 
end  loop 

end  expn 

body  procedure  term 
var  nextValue:Tea\ 
primaryO  Value)  %  Evaluate  "p" 
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loop  %  Evaluate 

exit  when  token  noi  — 
get  token 

primary(next  Value) 
t  Value  ;=  t  Value  *  next  Value 
end  loop 
end  term 

body  procedure  primary 
if  token  =  "("  then 
get  token 

expn(pValue)  %  Evaluate"  (ej^' 
assert  token  =  ")" 

else 

pValue  .  =  strreal(token)  %  Evaluate  "explicit  real" 
end  if 
get  token 
end  primary 

get  token  %  Start  by  reading  first  token 
var  answer:  xQid 

expn  (answer)  %  Scan  and  evaluate  input  expression 
put  "Answer  is:",  answer 

The  declaration  of  a  subprogram  or  module  must  not  appear  inside  a 
subprogram  or  statement. 

4.2  Modules 

A  module  defines  a  package  of  variables,  constants,  types,  subpro¬ 
grams,  and  sub-modules.  The  interface  of  the  module  to  the  rest  of  the 
program  is  defined  by  its  import  and  export  clauses. 

A  moduleDeclaration  is: 

module  [pervasive]  id 
[import  List] 

[export  ([opaque]  /</(, [opaque]  id\  )  ] 

[pre  booleanExpression] 
declare  tionsA  ndStatements 
[invariant  booleanExpression] 
declarationsA  ndStatements 
[post  booleanExpression] 
end  id 

A  module  declaration  is  executed  (and  the  module  is  initialized)  by  execute 
ing  its  declarations  and  statements.  See  "Terminology  and  Basic  Concepts" 
for  an  example  of  a  module. 
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The  identifier  following  the  end  of  a  module  must  be  the  module’s 
name. 

A  module  can  be  pervasive  only  if  it  does  not  import  (directly  or 
indirectly)  any  variables  (whether  var  or  non-var).  A  pervasive  module  is 
implicitly  imported  into  all  subconstructs  of  the  scope  of  the  module’s 
name  (not  including  the  module  itself);  this  implicit  importation  is  var 
except  for  importation  into  functions,  where  it  is  non-var. 

The  imporiLisi  gives  identifiers  visible  outside  the  module  that  are  to 
be  visible  inside  the  module.  See  the  description  of  import  clauses  in  "Sub¬ 
programs". 

Exported  identifiers  are  identifiers  declared  inside  the  module  which 
may  be  accessed  outside  the  module  using  the  dot  operator.  Unexported 
identifiers  cannot  be  referenced  outside  the  module.  Only  subprograms, 
constants  and  types  can  be  exported.  Variables  and  modules  must  not  be 
exported.  The  opaque  keyword  can  be  used  only  to  prefix  names  of  types. 
Outside  the  module  an  opaque  type  is  distinct  from  all  other  types;  see 
"Type  Equivalence  and  Assignability".  An  identifier  must  not  be  repeated 
in  an  export  list.  Example; 

module  pervasive  Complex  %  Implements  complex  arithmetic 
export  (opaque  value,  constant,  add,  ...  other  operations  ...) 

%  The "  valud'  type  is  opaque,  so  information  about  the  representation 
%  of  complex  values  is  hidden  in  this  module 
type  pervasive  value.  %  "  Valud'  is  visible  throughout  module 
record 

realPi,  imagPt:  real 
end  record 

function  constant(realPt,  imagPt:r^2L\):  value 
var  answer:  value 
answer. realPt  :=  realPt 
answer. imagPt  :=  imagPi 
result  answer 
end  constant 

function  add(L,R:  value):  value 
var  answer:  value 

answer. realPt  :=  L. realPt  +  R. realPt 
answer. imagPt  :=  L.imagPt  +  R. imagPt 
result  answer 
end  add 

...  other  operations  for  complex  arithmetic  go  here  ... 
end  Complex 
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var  u,v:  Complex,  value  :=  Complex. constanid .0,  2.0) 
var  w:  Complex,  value  :=  Complex. add(u,v) 

See  "Restrictions  Preventing  Aliasing"  for  constraints  on  reference 
parameters  in  calls  to  enter  a  module. 

The  module’s  pre  expression  must  be  true  when  execution  of  the 
module  declaration  begins.  The  post  expression  must  be  true  when  the  ini¬ 
tialization  of  the  module  (execution  of  its  declaration)  is  finished.  The 
invariant  expression  must  be  true  whenever  execution  is  outside  of  the  ini¬ 
tialized  module.  The  initialization  of  the  module  must  make  the  invariant 
expression  true,  and  it  must  be  true  whenever  an  exported  subprogram  is 
called  or  returns.  The  invariant  expression  must  not  reference  any  vari¬ 
ables  or  modules  imported  into  the  module,  nor  any  functions  that  directly 
or  indirectly  import  these.  The  invariant  clause  must  appear  before  the 
declarations  of  exported  subprograms. 

Module  declarations  may  be  nested  inside  other  modules  but  must  not 
be  nested  inside  subprograms.  A  module  must  not  contain  as  one  of  its 
declarations  a  variableBinding. 

4.3  Restrictions  on  Constants  and  Read  Only  Items 

A  variable  or  module  is  read-only  in  a  subprogram  or  module  into 
which  it  is  imported  non-var.  An  identifier  declared  non-var  in  a  bind  con¬ 
struct  is  also  read-only.  Exported  procedures  of  a  read-only  module  cannot 
be  called. 

All  components  of  a  constant  are  considered  constant,  and  all  com¬ 
ponents  of  read-only  variables  are  considered  read-only. 

Constants  and  read-only  variables  are  restricted  as  follows.  They  can¬ 
not  be  assigned  to,  bound  to  var,  further  imported  var,  or  passed  to  var 
parameters.  A  constant  or  read-only  union  cannot  be  the  object  of  a  tag 
statement.  A  read-only  collection  cannot  be  the  object  of  a  new  or  free 
statement. 

4.4  Restrictions  Preventing  Aliasing 

Given  distinct  visible  identifiers  x  and  y,  aliasing  is  said  to  exist  if  a 
change  to  the  value  of  variable  x  would  change  the  value  of  y.  Aliasing  is 
possible  only  when  variables  are  renamed.  In  Turing,  renaming  of  variables 
occurs  in  only  two  constructs:  reference  parameters  and  bind.  Aliasing  is 
prevented  by  placing  restrictions  on  these  two  constructs. 

(Note  that  variables  imported  by  a  parametric  subprogram  P  are  con¬ 
sidered  to  be  parameters  to  the  subprogram  to  which  P  is  passed;  see  "Sub¬ 
programs".) 

To  explain  these  restrictions,  we  first  define  the  terms  "direct  import¬ 
ing"  and  "indirect  importing".  A  subprogram  or  module  directly  imports  the 
items  in  its  import  clause.  (A  subprogram  that  does  not  have  an  explicit 
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import  clause  is  considered  to  have  an  implicit  import  clause  giving  the 
identifiers  it  accesses;  see  "Subprograms".)  Each  item  is  imported  non-var 
(which  means  read-only  for  imported  variables  and  modules)  or  var. 

A  subprogram  or  module  P  indirectly  imports  all  items  that  are  directly 
or  indirectly  imported  by  items  directly  imported  into  P.  The  direct  and 
indirect  imports  of  a  read-only  module  are  all  considered  to  be  non-var. 

Aliasing  due  to  the  first  construct  (reference  parameters)  is  prevented 
by  restrictions  (a)  and  (b).  Restriction  (a):  a  (part  of)  a  variable  is  not 
allowed  to  be  passed  to  a  var  parameter  if  the  called  subprogram  or  module 
has  another  means  of  accessing  (the  same  part  of)  the  variable.  This  access 
can  occur  in  two  ways.  The  first  is  by  a  direct  or  indirect  import  of  the 
variable  by  the  called  subprogram  or  module.  The  second  is  by  passing  (an 
overlapping  part  of)  the  same  variable  to  another  reference  parameter  in  the 
same  call.  Restriction  (b):  (part  of)  a  variable  is  not  allowed  to  be  passed 
to  a  reference  parameter  if  the  called  subprogram  or  module  has  another 
means  of  changing  (the  same  part  of)  the  variable.  The  possibility  of  chang¬ 
ing  the  variable  can  occur  in  two  ways.  The  first  is  by  a  direct  or  indirect 
var  import  of  the  variable  by  the  called  subprogram  or  module.  The  second 
is  by  passing  (an  overlapping  part  of)  the  same  variable  to  a  var  parameter 
in  the  same  call. 

Aliasing  due  to  the  second  construct  (bind)  is  prevented  by  restric¬ 
tions  (c)  and  (d).  Restriction  (c):  a  var  bind  of  >>  to  x  makes  x  invisible  for 
the  scope  of  y,  and  a  non-var  bind  of  >'  to  x  makes  x  read-only  for  the  scope 
of  y.  Restriction  (d);  a  var  bind  to  x  disallows  calls  to  subprograms  or 
modules  that  directly  or  indirectly  import  x,  and  a  non-var  bind  to  x  disal¬ 
lows  calls  to  subprograms  or  modules  that  directly  or  indirectly  import  x 
var. 

Function  calls  never  cause  aliasing  because  functions  cannot  import 
variables  var  (either  directly  or  indirectly)  and  cannot  have  var  parameters. 

5.  STATEMENTS  AND  INPUT/OUTPUT 

5.1  Statements 

A  statement  is  one  of: 

a.  variableReference  :  =  expn 

b.  [  module  I d .]  procedureld  [(  expn  {,  expn]  )] 

c.  assert  booleanExpn 

d.  return 

e.  result  expn 

f.  if  booleanExpn  Xhen 

declarationsA  ndStatements 
{elsif  boolean EjcpniYitn 

declarationsA  ndStatements] 
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(else 

declarationsA  ndNiaiementsl 

end  if 

g.  loop 

[invariant  booleanExpn] 
declaralionsA  ndSlaiements 

end  loop 

h.  exit  [when  booleanExpn] 

i.  case  expn  of 

label  compileTimeExpn  {,  compileTimeExpn]  :  declarationsAndStaiements 
[label  compileTimeExpn  (,  compileTimeExpn]  :  declaralionsAndStatements  } 
[label  ;  declaralionsAndStatements] 
end  case 

j.  begin 

declarationsA  ndStatements 

end 

k.  new  collectionid,  variableReference 

l.  free  collectionid,  variableReference 

m.  for  [decreasing]  [id]  :  expn. .expn 

declarationsA  ndStatements 
[invariant  booleanExpn] 
end  for 

n.  tag  variableReference,  expn 

o.  put  (:  streamNumber,]  putltem[,  putitem]  [..] 

p.  get  [:  StreamNumber,]  getltem],  getltem] 

A  declaration  inside  an  if,  loop,  case,  for  or  begin  statement  must  not  be 
for  a  module  or  subprogram;  all  other  kinds  of  declarations,  including  bind, 
are  allowed. 

Form  (a)  is  an  assignment  statement.  The  expression  is  evaluated 
and  the  value  assigned  to  the  variable.  The  expression  must  be  assignable 
to  the  variable  type;  see  "Type  Equivalence  and  Assignability". 

Form  (b)  is  a  procedure  call.  An  exported  procedure  is  called  outside 
the  module  in  which  it  was  declared  using  the  dot  operator.  See  "Subpro¬ 
grams"  and  "Modules". 

Form  (c)  is  an  assert  statement.  The  boolean  expression  must  be 
true  whenever  the  assert  statement  is  executed.  A  checking  implementa¬ 
tion  evaluates  the  assertion  at  runtime  and  aborts  the  program  if  it  is  false. 

Form  (d)  is  a  return  statement,  which  causes  immediate  return  from 
a  program  or  a  procedure.  A  program  or  procedure  returns  either  via  a 
return  statement  or  implicitly  by  reaching  the  end  of  the  program  or  pro¬ 
cedure.  Functions  and  module  bodies  must  not  contain  return  statements. 

Form  (e)  is  a  result  statement,  which  must  be  contained  in  a  function 
and  causes  immediate  return  from  the  function  giving  the  function’s  value. 

The  result  expression  must  be  assignable  to  the  result  type  given  in  the 
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function’s  header.  Execution  of  a  function  must  conclude  by  executing  a 
result  statement  and  not  by  reaching  the  end  of  the  function. 

Form  (f)  is  an  if  statement.  The  boolean  expressions  following  the 
keyword  if  and  each  elsif  are  successively  evaluated  until  one  of  them  is 
found  to  be  true,  in  which  case  the  statements  following  the  corresponding 
then  are  executed.  If  none  of  the  expressions  evaluates  to  true  then  the 
statements  following  else  are  executed;  if  no  else  is  present  then  execution 
continues  following  the  end  if. 

Form  (g)  is  a  loop  statement.  The  statements  within  the  loop  are 
repealed  until  terminated  by  one  of  its  exit  statements  or  an  enclosed 
return  or  result  statement.  The  boolean  expression  in  the  invariant  must 
be  true  whenever  execution  reaches  it;  a  checking  implementation  will 
abort  if  it  is  false. 

Form  (h)  is  a  loop  exit.  When  executed,  it  causes  an  immediate  exit 
from  the  nearest  enclosing  loop  or  for  statement.  The  optional  boolean 
expression  makes  the  exit  conditional.  If  the  expression  evaluates  to  true 
then  the  exit  is  executed,  otherwise  execution  of  the  loop  continues.  An 
exit  statement  can  appear  only  inside  loop  and  for  statements. 

Form  (i)  is  a  case  statement.  The  optional  final  clause  with  no 
expression  between  label  and  :  is  called  the  otherwise  clause.  The  case 
expression  is  evaluated  and  used  to  select  one  of  the  alternative  labels.  The 
statements  which  follow  the  matching  label  value  are  executed.  If  the  case 
expression  value  does  not  match  any  of  the  label  values  then  the  otherwise 
clause  is  executed.  If  no  otherwise  clause  is  present,  the  case  expression 
must  match  one  of  the  label  values.  When  execution  of  the  selected  alter¬ 
native  is  completed,  execution  continues  following  the  case  statement. 

Each  label  value  must  be  assignable  to  the  root  type  of  the  case 
expression;  see  "Types  and  Type  Declarations".  The  type  of  the  case 
expression  must  be  an  int  or  an  index  type.  Label  expressions  must  be 
compile-time  expressions.  The  values  of  all  label  expressions  in  a  given 
case  statement  must  be  distinct. 

An  implementation  may  limit  the  range  of  case  label  values  to  insure 
efficient  code;  this  range,  from  the  minimum  label  value  to  the  maximum, 
will  be  at  least  256. 

Form  (j)  is  a  begin  statement.  Begin  statements  are  used  to  group 
local  declarations. 

Forms  (k)  and  (I)  are  new  and  free  statements  for  creating  and  delet¬ 
ing  elements  of  a  collection  (see  "Variable  Declarations"). 

Form  (m)  is  a  for  statement.  The  statements  enclosed  in  the  for 
statement  are  repealed  for  the  specified  range,  or  until  the  loop  is  ter¬ 
minated  by  one  of  its  exit  statements  or  an  enclosed  return  or  result  state¬ 
ment.  The  range  is  given  by  the  value  of  the  two  expressions  at  the  lime 
the  for  statement  is  entered.  The  types  of  the  two  values  must  be  of  the 
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same  index  type  or  of  type  int.  For  the  first  iteration,  id  has  the  left 
expression’s  value;  for  successive  iterations,  id  is  increased  by  one  (or 
decreased  if  decreasing  is  present),  until  in  the  last  iteration  /(^equals  the 
right  value.  If  the  left  value  exceeds  the  right  (or  is  less  than  the  right 
when  decreasing),  there  are  no  iterations.  For  each  repetition,  id\s  set  to  a 
new  value  in  the  range;  these  are  contiguous  values  that  are  increasing, 
unless  decreasing  is  specified  in  which  case  they  are  decreasing.  The  for 
statement  is  a  declaration  for  id,  which  must  be  distinct  from  other  visible 
identifiers.  The  scope  of  id  is  from  the  beginning  to  the  end  of  the  for 
statement.  If  the  id  is  not  present,  the  for  statement  behaves  the  same, 
except  that  the  value  corresponding  to  the  id  cannot  be  accessed.  For  each 
repetition,  id  is  a  constant  and  its  value  cannot  be  changed.  The  boolean 
expression  in  the  invariant  must  be  true  whenever  execution  reaches  it;  a 
checking  implementation  will  abort  if  it  is  false. 

Form  (n)  is  a  tag  statement.  The  variable  of  the  statement  must  be  a 
union.  The  union’s  tag  is  changed  to  be  the  value  of  the  expression,  which 
must  be  assignable  to  the  tag’s  type.  See  "Types  and  Type  Declarations"  for 
an  example  of  usage. 

5.2  Input  and  Output 

Statement  forms  (o)  and  (p)  are  put  and  get  statements,  which  are 
used  to  read/write  items  to/from  streams  (sequential  files  of  characters). 
Each  streamNumber  is  a  non-negative  integer  expression.  Omitting  the 
stream  number  from  these  statements  results  in  the  default  input  stream  for 
get  and  the  default  output  stream  for  put.  (See  also  "Predefined  Pro¬ 
cedures"  for  open  and  close,  which  are  used  to  associate  streams  with  stream 
numbers.)  The  written  or  read  items  must  be  strings  or  numbers  (integer 
or  real).  The  default  input  and  output  streams  cannot  be  selected  using  a 
StreamNumber.  There  is  a  run-time  constraint  that  a  particular  stream  can 
be  read  from  or  written  to  but  not  both. 

Since  functions  cannot  have  side  effects,  they  are  not  allowed  to  con¬ 
tain  get  and  put  statements  or  to  directly  or  indirectly  call  procedures  that 
contain  get  or  put  statements. 

A  put  Item  is  one  of: 

a.  expn  [:  width Expn  [:  fractionWidth  [:  expon^’ntWidth]]] 

b.  skip 

From  left  to  right  in  a  put  statement,  either  the  first  expression  of  the 
putitem  is  appended  to  the  output  stream,  or  skip  starts  a  new  line.  A  new 
line  is  also  started  at  the  end  of  the  list  of  putitems,  unless  the  list  is  fol¬ 
lowed  by  in  which  case  this  new  line  is  not  started.  The  ".."  leaves  the 
current  line  so  it  can  be  completed  by  other  put  statements. 

If  the  widthExpn  is  omitted,  then  the  value  is  printed  in  a  field  just 
large  enough  to  hold  the  value.  The  fractionWidth  and  exponent  Width  are 
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allowed  only  for  integer  and  real  values. 

For  siring  value  s,  integer  value  i  and  real  value  r,  the  putliems  given 
on  the  left  are  defined  by  the  string  putliems  on  the  right. 


s:  M’ 

s  +  repeat  ( blank,  w-lengih  ( sj) 

/ 

intstrO,  0) 

i:  M' 

intslr(i,  w) 

r 

realsir(r,0) 

r:  w 

realstr(r,  wj 

r:  w:fw 

frealstr(r,  wjw) 

r:  w:  fw:  ew 

erea  Isir  ( r,  wJw,  e  w) 

See  "Predefined  Functions"  for  definitions  of  the  functions  used  on  the 
right.  Following  are  example  put  statements  with  their  output. 


Statement 

Output 

Notes 

put  24 

24 

put  1/10 

0.1 

Trailing  fraction  zeros  omitted 

put  100/10 

10 

Decimal  point  omitted 

put  5/3 

1.666667 

Assumes  fwdefault  =  6 

put  sqrt(2) 

1.414214 

put  4.86*10**9 

4.86e9 

Exponent  printed  for  >  =  le6 

put  121:5 

bbl21 

Width  of  5;  blank  shown  as  "b' 

put  1.37:  6:  3 

bl.370 

Fraction  width  of  3 

put  1.37:  11:  3:  2 

bbl.370e+00 

Exponent  width  of  2 

put  "O’Brian" 

O’Brian 

put  "X  =  ",  5.4 

X  =  5.4 

put  "XX":  4,  "Y" 

XXbbY 

Blank  shown  here  as  "b" 

The  get  statement  reads  from  a  stream. 

A  get  I  tern  is  one  of: 

a.  variableReference 

b.  skip 

c.  variableReference.  * 

d.  variableReference.  widthExpn 

Form  (a)  supports  token-oriented  input,  forms  (b)  and  (c)  support  line- 
oriented  input,  and  form  (d)  supports  character-oriented  input.  In  form  (a) 
the  variableReference’s  Tooi  type  must  be  integer,  real  or  string,  while  forms 
(c)  and  (d)  allow  only  strings.  The  value  read  into  a  string  must  not  con¬ 
tain  an  eosoT  uniniichar  character  (see  "Identifiers  and  Explicit  Constants"). 

Form  (a)  first  skips  white  space  (defined  as  the  characters  blank,  lab, 
form  feed,  and  new  line);  then  it  reads  the  next  characters  as  a  token.  A 
token  consists  of  either  (1)  one  or  more  non  white  space  characters,  up  to 
but  not  including  either  a  white  space  character  or  end  of  file,  or  else  (2)  if 
the  token’s  first  character  is  a  quote  ("),  then  it  is  an  explicit  siring  con¬ 
stant.  (See  also  "identifiers  and  Explicit  Constants".)  Explicit  siring 
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constants  can  only  be  input  for  string  variableReferences.  When  the  varia- 
bleReference  is  a  string,  the  value  of  the  explicit  string  constant  or  else  the 
characters  of  the  token,  are  assigned  to  the  variable.  If  it  is  an  integer,  the 
predefined  function  strint  converts  the  token  to  an  integer  before  assigning 
to  the  variable.  Analogously  for  reals,  sirreal  converts  the  token  to  real 
before  assigning  it  to  the  variable.  It  is  an  error  to  use  form  (a)  if  no  token 
remains  in  the  stream. 

In  form  (b),  the  skip  option  skips  white  space,  stopping  when 
encountering  non-white  space  (a  token)  or  end  of  file.  This  option  is  used 
to  detect  whether  further  tokens  exist  in  the  input;  if  no  more  tokens  exist 
in  the  input,  all  characters  of  the  file  are  skipped  and  the  eof  predefined 
function  becomes  true.  The  following  input  stream: 

Alice  216  "World  champion" 

is  used  in  this  example: 

var  name,  fame:  string 

var  time:  int 

get  name,  time,  fame 

%  name  =  "Alice  ”,  time  =216  and  fame  =  "  World  champion  " 


Example: 

%  Read  and  sum  a  non-empty  sequence  of  numbers 
var  st/m.’ real  .’=  0.0 
var  Avreal 
loop 

get  X,  skip  %  After  reading  x,  skip  to  eof  or  next  token 
sum  :=  sum  +  x 

exit  when  eof  %  eof  is  explained  in  "Predefined  Functions  ” 

end  loop 

put  "Sum  is: ",  sum 

Form  (c)  reads  the  rest  of  the  characters  of  the  present  line  (not 
including  the  trailing  new  line  character)  and  assigns  them  to  the  varia- 
bleReference.  The  trailing  new  line  character  is  read  and  discarded.  (Note: 
it  may  be  that  the  fi  ial  line  of  a  stream  is  not  terminated  by  a  new  line 
character;  in  this  case  form  (c)  reads  the  remaining  characters.)  It  is  an 
error  to  use  form  (c)  if  no  characters  remain  in  the  stream  (if  eof  is  true  for 
the  stream). 

Form  (d)  is  similar  to  form  (c)  except  (1)  at  most  widthExpn  (a  non¬ 
negative  integer)  characters  are  read,  (2)  the  new  line  character  at  the  end 
of  a  line  is  part  of  the  string  assigned  to  the  variableReference,  and  (3) 
attempting  to  read  past  the  end  of  stream  is  allowed  and  returns  zero  char¬ 
acters.  Examples: 
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var  5,r,w; string 

get  s:  *  %  Reads  input  line,  discarding  final  new  line  character 

get  t:20  %  Reads  at  most  20  characters;  t  may  end  with  "\n" 
get  u:l  %  Reads  next  char  (or  null  string  for  eof) 

Example: 

%  Read  and  print  stream  a  line  at  a  time 

var  //>;c;  string 

loop 

exit  when  eof 
get  line.*  %  Read  line 
put  line 
end  loop 

Example: 

%  Read  and  print  stream  a  character  at  a  time 

var  c.  string  (I) 

loop 

exit  when  eof 

get  c:  1  %  "\n"  is  read  into  c  at  end  of  line 
put  c  ..  %  Lines  are  ended  when  c="\n" 
end  loop 

6.  REFERENCES  AND  EXPRESSIONS 
6.1  References 

The  syntax  for  reference  includes  variable  references  and  constant 
references,  as  well  as  function  calls,  values  of  enumerated  types,  and  attri¬ 
butes.  A  variableReference  is  a  reference  that  denotes  a  variable  or  part  of  a 
variable. 

A  reference  is: 

[  module  Id .  ]  id{  componentSelectoi] 

A  componentSelector  \s  one  of: 

a.  (  expn  {,  expn]  ) 

b.  .  id 

Form  (a)  allows  subscripting  of  arrays  and  collections.  The  value  of 
each  array  subscript  expression  must  be  in  the  declared  range  of  the 
corresponding  index  type  of  the  array.  The  number  of  array  subscripts 
must  be  the  same  as  the  number  of  index  ranges  declared  for  the  array.  A 
collection  must  have  exactly  one  subscript  and  this  must  be  a  pointer  to  the 
collection. 
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Form  (a)  also  allows  calls  to  functions.  The  number  of  expressions 
must  be  the  same  as  the  number  of  declared  parameters  of  the  function. 
Each  expression  must  be  assignable  to  the  corresponding  formal  parameter 
of  the  function. 

Form  (b)  allows  field  and  tag  selection  for  records  and  unions. 
(Fields  of  a  record  or  variable  and  a  union’s  tag  are  referenced  using  the 
dot  operator). 

A  value  of  an  enumerated  type  is  a  special  case  of  form  (b),  namely, 
einimeraiedTypeld.id.  The  final  id  must  be  one  of  the  identifiers  given  in  the 
enum  type  definition. 

6.2  Expressions 

An  expn  (expression)  represents  a  calculation  that  returns  a  value.  A 
booleanExpn  is  an  expn  whose  value  is  true  or  false. 

Turing  is  a  strongly  typed  language,  meaning  that  there  are  a  number 
of  constraints  on  the  ways  values  can  be  used.  The  following  sections 
explain  how  values  are  mapped  by  operators  to  produce  new  values. 

An  expn  is  one  of  the  following: 

a.  reference 

b.  explicitConstant 

c.  [module Id]  setTypeld  ielemeniList) 

d.  substring 

e.  expn  infixOperator  expn 

f.  prefixOperator  expn 

g.  (  expn ) 

Form  (a)  includes  (1)  references  to  constants  and  variables  including  sub¬ 
scripting  and  field  and  tag  selection,  (2)  function  calls  and  (3)  values  of 
enumerated  types.  See  "References". 

Form  (b)  includes  explicit  boolean,  integer,  real  and  string  constants; 
see  "Identifiers  and  Explicit  Constants".  Form  (c)  is  a  set  constructor;  see 
"Set  Operators  and  Constructors".  Form  (d)  is  a  substring;  see  "String 
Operators  and  Substrings". 

An  infixOperator  is  one  of: 


a.  + 

(integer  and  real  addition;  set  union;  string  catenation) 

b.  - 

(integer  and  real  subtraction;  set  difference) 

c.  * 

(integer  and  real  multiplication;  set  intersection) 

d.  / 

(real  division) 

e.  div 

(truncating  division) 

f.  mod 

(remainder) 

g-  ** 

(integer  and  real  exponentiation) 

h.  < 

(less  than) 

i.  > 

(greater  than) 

j-  = 

(equal) 
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k.  <  =  (less  than  or  equal;  subset) 

l.  >  =  (greater  than  or  equal;  superset) 

m.  not=  (not  equal) 

n.  and  (boolean  intersection) 

o.  or  (boolean  inclusive  or) 

p.  —  >  (boolean  implication) 

q.  in  (member  of  set) 

r.  not  in  (not  member  of  set) 

A  prefhcOperaior  is  one  of: 

a.  + 

b.  - 

c.  not 

The  order  of  precedence  is  among  the  following  classes  of  the  opera¬ 
tors,  in  decreasing  order  of  precedence; 

1.  ** 

2.  prefix  +,  — 

3.  *,  /,  div,  mod 

4.  infix  +,  — 

5.  <,  >,  =,  <=,  >=,  not  =  ,  in,  not  in 

6.  not 

7.  and 

8.  or 

9.  -> 

Expressions  are  evaluated  according  to  precedence,  left  to  right  within  pre¬ 
cedence.  Note  that  exponentiation  is  grouped  from  left  to  right. 

6.3  Numeric  Operators 

The  numeric  (integer  and  real)  operators  are  /,  div  (truncat¬ 

ing  division),  mod  (remainder)  and  **  (exponentiation). 

The  div  operator  is  defined  by: 

Jfdiv  y  =  trunc(a  b  ) 

where  means  exact  mathematical  division  and  trunc  truncates  to  the 
nearest  integer  in  the  direction  of  zero.  The  result  is  is  of  type  int.  The 
operands  can  be  integer  or  real.  Note  that  with  real  operands,  div  may  pro¬ 
duce  an  integer  overflow. 

The  mod  operator  is  defined  by; 
xmod  .V  =  X  —  y*(xA\\-  y) 

If  X  and  y  are  both  integers,  the  result  type  is  int,  otherwise  the  result  is 
real.  Note  that  mod  applied  to  real  operands  is  useful  for  range  reduction; 
for  example,  for  x  >  0,  sin(x)  can  be  computed  as  sin(x  mod  2*pi).  Note 
that  mod  with  integer  operands  never  produces  an  overflow,  but  with  real 
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operands,  it  may  produce  a  real  underflow.  The  /  operator  requires  real 
operands  and  returns  a  real  result. 

Whenever  a  real  value  is  required,  an  integer  value  is  allowed  and  is 
converted  to  real  by  an  implicit  call  to  the  intreal  predefined  function;  see 
"Predefined  Functions".  Note  that  this  rule  implies  the  the  /  operator  can 
accept  two  integer  operands,  but  both  will  be  converted  real.  The  operators 
+  ,  -  (infix  and  prefix),  *  and  **  require  integer  or  real  operands;  if  one  or 
both  operands  are  real,  the  result  is  real,  else  it  is  integer.  The  right 
operands  of  div  and  /  must  not  be  zero.  If  both  operands  of  **  are  integer 
values,  the  right  operand  must  be  non-negative.  Examples: 

7/2  =  3.5  -7/2=  -3.5 

7  div  2  =  3  —7  div  2  =  —3 

7  mod  2  =  1  —7  mod  2  =  —  1 

7  •*  2  =  49 

A  checking  implementation  is  expected  to  detect  division  and  mod  by  zero, 
zero  to  the  zero  power,  integer  overflow,  and  real  overflow  and  underflow. 

6.4  Comparison  Operators 

The  comparison  operators  are  <,  >,  =,  <=,  >=,  and  not  =  . 
These  operators  yield  a  boolean  result.  Operands  of  a  comparison  operator 
must  have  the  same  root  type;  see  "Type  Equivalence  and  Assignability". 
Only  strings  and  scalars  (values  whose  root  type  is  integer,  real,  boolean, 
enumerated,  set  or  pointer)  can  be  compared.  Arrays,  records  and  unions 
cannot  be  compared.  Booleans  and  pointers  can  be  compared  only  for 
equality  (=  and  not=).  See  "String  Operators  and  Substrings"  for  a 
description  of  string  comparison. 

6.5  Boolean  Operators 

The  boolean  operators  are  and  (intersection),  or  (inclusive  or),  -> 
(implication)  and  not.  These  require  boolean  operands  and  return  a 
boolean  result.  Note  that  a  —>b  has  the  same  meaning  as  (not  a)  or  b. 
The  boolean  operators  are  conditional;  that  is,  if  the  result  of  the  operation 
is  determined  by  the  value  of  the  left  operand  then  the  right  operand  is  not 
evaluated.  In  the  following,  division  by  zero  is  avoided,  because  the  right 
operand  of  and  is  executed  only  if  the  left  operand  is  true: 

if  cow«r not  =  0  and  sumi count  >  60  then... 

6.6  String  Operators  and  Substrings 

The  only  string  operator  is  +  (catenation);  it  requires  string  operands 
and  returns  a  string.  An  implementation  may  limit  the  allowed  length  of 
string  values;  this  limit  will  be  at  least  255. 

The  ordering  of  strings  is  determined  by  left  to  right  comparison  of 
pairs  of  corresponding  characters  until  an  end  of  string  or  a  mismatch  is 
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found.  See  "Character  Collating  Sequence".  The  longer  string  is  considered 
greater.  The  string  with  the  greater  of  the  mismatched  characters  is  con¬ 
sidered  greater.  Note  that  strings  of  differing  lengths  are  never  considered 
to  be  equal,  and  there  is  no  implicit  "blank  padding"  of  the  ends  of  strings. 
The  following  function  recursively  defines  the  "greater  than"  string  relation 
in  terms  of  comparison  of  strings  of  length  one. 

function  GTfs.r.  string/’ boolean 

if  length(s)  =  Oor  lengih(t)  =  Othen  result  lengih(s)  >length(t) 
elsif  s(l)  =  /f/jthen  result  GT(s(2..*).i(2..*)) 
else  result  s(l)  >  t(I) 
end  if 
end  GT 

The  length  predefined  function  returns  the  number  of  characters  in  a 
string  value;  see  "Predefined  Functions". 

A  substring  is  one  of; 

1.  reference  (  expn  ..  expn  ) 

2.  reference  (  expn  ..  *  ) 

3.  reference  (  expn  ) 

Form  (1)  takes  a  substring  of  the  string  reference  from  character  L  (L  is 
the  first  expression)  to  character  R  (R  is  the  second  expression).  Form  (2) 
is  similar,  but  R  is  taken  to  be  the  length  of  the  original  string.  Form  (3)  is 
similar,  but  L  and  R  are  both  taken  to  be  equal  to  the  expression;  there¬ 
fore,  form  (3)  always  returns  a  string  of  length  one.  The  following  restric¬ 
tions  apply  to  L  and  R:  L  >=  1  and  R  <=  length  (reference)  and  R- 
L  +  1>=0.  Note  that  length(s(L..R))  =  R-L  +  1.  Note  that  for  L>  =  1 
and  L<  =length(s),  s(L,L-l)  is  the  null  string,  i.e.,  the  string  of  length 
zero.  A  substring  is  an  expression  (not  a  variable),  and  it  so  cannot  be 
assigned  to. 

6.7  Set  Operators  and  Set  Constructors 

The  set  operators  are  +  (set  union),  -  (set  difference),  *  (set  inter¬ 
section),  <=  and  >=  (set  inclusion),  and  in  and  not  in  (membership). 
The  set  operators  +,  -  and  *  take  operands  of  equivalent  set  types  and  yield 
a  result  of  the  same  type.  The  set  operators  <  =  and  >  =  take  operands  of 
equivalent  set  types  and  yield  a  Boolean  result.  The  operators  in  and  not  in 
take  a  set  as  right  operand  and  an  expression  in  the  set’s  base  type  as  left 
operand.  They  yield  a  Boolean  result. 

A  setConstrucior  is: 

[moduleld]  setTypeld  {  elemeniList) 

The  setTypeld  must  be  the  name  of  a  set  type.  The  set  constructor  returns 
a  set  containing  the  specified  elements. 

An  element  List  is  one  of: 
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a.  [expn  {,expn]] 

b.  all 

The  element  list  is  a  (possibly  empty)  list  of  expressions  in  the  base  type  of 
the  set,  or  all.  If  all  is  specified,  the  constructor  returns  the  complete  set. 
If  no  elements  are  specified,  the  constructor  returns  the  empty  set. 

6.8  Compile-Time  Expressions 

A  compile-lime  expression  is  an  expression  whose  value  is  necessarily 
computed  at  compile  time.  The  following  are  compile-time  expressions: 

1.  Explicit  integer,  real,  boolean  and  string  constants,  as  well  as 
enumerated  values 

2.  Set  constructors  containing  compile-time  element  values 

3.  Compile-time  named  scalar  constants 

4.  The  result  of  integer  operator  prefix  -I-  and  — ,  and  infix 

*,  div  and  mod  when  the  operands  are  compile-time  integer 
expressions 

5.  The  built-in  functions  chr  and  ord  when  the  actual  parameter 
is  a  compile-time  expression 

6.  The  result  of  the  catenate  operator  (-I-)  when  both  operands  are 
compile-time  string  expressions 

Expressions  that  are  not  necessarily  computed  at  compile  time  are  called 
run-time  expressions. 

6.9  Predefined  Functions 

The  following  are  pervasive,  predefined  functions. 
eofO:  int):  boolean 

Accepts  a  non-negative  stream  number  (see  description  of  get  and 
put  statements)  and  returns  true  iff  there  are  no  more  characters  in 
the  stream.  This  function  must  not  be  applied  to  streams  that  are 
written  to  (via  put).  The  parameter  and  parentheses  can  be  omit¬ 
ted,  in  which  case  it  is  taken  to  be  the  default  input  stream. 

pred(expn) 

Accepts  an  integer  or  an  enumerated  value  and  returns  the  integer 
minus  one,  or  the  previous  value  in  the  enumeration.  Pred  must 
not  be  applied  to  the  first  value  of  an  enumeration. 

succ(expn) 

Accepts  an  integer  or  an  enumerated  value  and  returns  the  integer 
plus  one,  or  the  next  value  in  the  enumeration.  Succ  must  not  be 
applied  to  the  last  value  of  an  enumeration. 

STRING  FUNCTIONS 
length  (s:  string):  int 

Returns  the  number  of  characters  in  the  string.  The  string  must  be 
initialized. 
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index(s,paii:  st  ri  ng  i  n t 

If  there  exists  an  /  such  that  s(i..i+length(pait)-l)  =  pan,  then  the 
smallest  such  i  is  returned,  otherwise  zero  is  returned.  Note  that  1 
is  returned  if  pan  is  the  null  string. 

repea  I  (s:  string .  /.'  int  ):  string 

If  />0,  returns  /  copies  of  s  catenated  together,  else  returns  the  null 
string.  Note  that  if  J>  =0.  length  (repeat(tj))  =  j*lengtli(t). 

MATHEMATICAL  FUNCTIONS 
abs(expn) 

Accepts  an  integer  or  real  value  and  returns  the  absolute  value. 
The  type  of  the  result  is  integer  if  the  expn  is  an  integer;  otherwise 
it  is  real. 

max(expn.expn) 

Accepts  two  numeric  (real  or  integer)  values  and  returns  their  max¬ 
imum.  If  both  are  integers,  the  result  is  an  integer;  otherwise  it  is 
real. 

min  (expn,  expn) 

Accepts  two  numeric  (real  or  integer)  values  and  returns  their  max¬ 
imum.  If  both  are  integers,  the  result  is  an  integer;  otherwise  is  is 
real. 

sign(r:  real>);  —  1..1 

Returns  —  7  if  r  <  0,  0\(  r  =  0,  and  7  if  r  >0. 
sqri(r:  real ):  real 

Returns  the  positive  square  root  of  r,  where  ris  a  non-negative  value. 
sin(r:  real ):  real 

Returns  the  sine  of  r,  where  r  is  an  angle  expressed  in  radians. 
cos(r:  real ):  real 

Returns  the  cosine  of  r,  where  r  is  an  angle  expressed  in  radians. 
arcian(r:  real  J:  real 

Returns  the  arctangent  (in  radians)  of  r. 
sind(r:  real  7.’  real 

Returns  the  sine  of  r,  where  r  is  an  angle  expressed  in  degrees, 
real  7.' real 

Returns  the  cosine  of  r,  where  r  is  an  angle  expressed  in  degrees. 


arciandir:  real ):  real 

Returns  the  arctangent  (in  degrees)  of  r. 
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In  (r:  real ):  real 

Returns  the  natural  logarithm  (base  e)  of  r. 
ex/>fr;  real/' real 

Returns  the  natural  base  e  raised  to  the  power  r. 

TYPE  TRANSFER  FUNCTIONS 
floor(r:  real):  int 

Returns  the  largest  integer  less  than  or  equal  to  r. 
ceiKr: real ):\nt 

Returns  the  smallest  integer  greater  than  or  equal  to  r. 
rouncKr:  real  ):int 

Returns  the  nearest  integer  approximation  to  r.  Rounds  to  nearest 
even  value  in  case  of  tie. 

intreaKi:  int ):  real 

Returns  the  real  value  equivalent  to  /.  No  precision  is  lost  in  the 
conversion,  so  floorOntrealQ))  =ceil(inireal(j))  =j.  To  guarantee  that 
these  equalities  hold,  an  implementation  may  limit  the  range  of  /. 

c/jrf/;  int  >>;  string  (1) 

Returns  a  string  of  length  1.  The  i-th  character  of  the  collating 
sequence  is  returned,  where  the  first  character  corresponds  to  0,  the 
second  to  7,  etc.  See  "Character  Collating  Sequence".  The  selected 
character  must  not  be  uninitchar  (a  reserved  character  used  to  mark 
uninitialized  strings)  or  eos  (a  reserved  character  used  to  mark  the 
end  of  a  string).  See  "Identifiers  and  Explicit  Constants". 

ord(expn) 

Accepts  an  enumerated  value  or  a  string  of  length  1  and  returns  the 
position  of  the  value  in  the  enumeration  or  of  the  character  in  the 
collating  sequence.  Values  of  an  enumerated  type  are  numbered 
left  to  right  starting  at  zero.  See  "Character  Collating  Sequence". 

intstrO,  width:  int ):  string 

Returns  a  string  equivalent  to  /,  padded  on  the  left  with  blanks  as 
necessary  to  a  length  of  widtfr,  for  example,  intstr(14,4)=”bbl4' 
where  b  represents  a  blank.  The  width  parameter  must  be  non¬ 
negative.  If  width  is  not  large  enough  to  represent  the  value  of  /, 
the  length  is  automatically  increased  as  needed.  The  string 
returned  by  intstr  is  of  the  form: 

(blank)  [-]digit(digits) 

The  leftmost  digit  is  non-zero,  or  else  there  is  a  single  zero  digit. 


strinl(s:  string):  int 


jy 


Returns  the  integer  equivalent  to  string  s.  String  s  must  consist  of 
a  possibly  null  sequence  of  blanks,  then  an  optional  plus  or  minus 
sign,  and  finally  a  sequence  of  one  or  more  digits.  Note  that  for 
integer  /,  and  for  non-negative  w.  siriiu(iiusrr(i.w))  =i. 

erealsirir:  real .  widlh,  fraction  Width,  exponent  Width:  int  string 

Returns  a  string  (including  exponent)  approximating  /•,  padded  on 
the  left  with  blanks  as  necessary  to  a  length  of  width\  for  example, 
crealstr(2.5EI .9.2,2)=''hl.Si)t  +  Q\''  where  b  represents  a  blank. 
The  width  parameter  must  be  non-negative.  If  the  width  parameter 
is  not  large  enough  to  represent  the  value  of  r,  the  length  is 
automatically  increased  as  needed.  The  fraction  Width  parameter  is 
the  non-negative  number  of  fractional  digits  to  be  displayed.  The 
displayed  value  is  rounded  to  the  nearest  decimal  equivalent  with 
this  accuracy,  with  ties  leaving  the  rightmost  displayed  digit  even. 
The  exponent  Width  parameter  must  be  non-negative  and  gives  the 
number  of  exponent  digits  to  be  displayed.  If  exponent  Width  is  not 
large  enough  to  represent  the  exponent,  more  space  is  automatically 
used  as  needed.  The  string  returned  by  erealstr  is  of  the  form; 

(blank) [-]digit.{digit)E  sign  digit  (digit) 

where  "sign"  is  a  plus  or  minus  sign.  The  leftmost  digit  is  non¬ 
zero,  unless  all  the  digits  are  zeroes. 

frealstr(r:  real ,  width,  fraction  Width:  inf ):  string 

Returns  a  string  approximating  r,  padded  on  the  left  with  blanks  if 
necessary  to  a  length  of  width.  The  number  of  digits  of  fraction  to 
be  displayed  is  given  by  JractionWidth\  for  example, 
frealstr(2.5EI,5,l)  =  "b25.0"  where  b  represents  a  blank.  The  width 
parameter  is  as  described  under  erealstr.  The  fraction  Width  parame¬ 
ter  must  be  non-negative.  If  /■  =  0  or  else  abs(r)<  Jed  and 
abs(r)>  =  le— 3,  no  exponent  is  displayed,  else  frealstr(r,wjw)  is 
equal  to  erealstr(r,wjw.defaultew);  defaultew  is  an  implementation 
defined  number  of  exponent  digits  to  be  displayed.  For  most 
implementations,  defaultew  will  be  2.  When  no  exponent  is 
displayed,  freaistr  vtiuxns  a  string  of  the  form: 

(blank)  [-)  digit(digit). (digit) 

If  the  leftmost  digit  is  zero,  then  it  is  the  only  digit  to  the  left  of 
the  decimal  point.  The  displayed  value  is  rounded  as  described 
under  erealstr. 

realstr(r:  real ,  width:  int  string 

Returns  a  string  approximating  r.  padded  on  the  left  with  blanks  if 
necessary  to  a  length  of  width,  for  example,  realstr(2.5EJ,4)  = 
"bb25"  where  b  represents  a  blank.  The  width  parameter  is  as 
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described  under  erealstr.  The  siring  realsir(r, width)  is  the  same  as 
the  siring  frealstr(r,width,defaultfw) ,  where  defaultfw  is  an  imple¬ 
mentation  defined  number  of  fractional  digits  to  be  displayed,  with 
the  following  exceptions.  With  realsir,  trailing  fraction  zeroes  are 
omitted  and  if  the  entire  fraction  is  zero,  the  decimal  point  is  omit¬ 
ted.  (These  omissions  lake  place  even  if  the  exponent  part  is 
printed.)  If  the  entire  fraction  is  omitted,  then  the  decimal  point  is 
also  omitted.  If  an  exponent  is  printed,  any  plus  sign  and  leading 
zeroes  are  omitted.  Thus,  whole  number  values  are  in  general 
displayed  as  integers.  For  most  implementations,  defaultfw  will  be 
6. 

strreaKs:  string/’  real 

Returns  a  real  approximation  to  string  s.  String  s  must  consist  of  a 
possibly  null  sequence  of  blanks,  then  an  optional  plus  or  minus 
sign  and  finally  an  explicit  unsigned  real  or  integer  constant. 

6.10  Attributes 

There  are  pervasive  attributes  that  are  properties  of  variables  rather 
than  properties  of  values.  For  example,  the  upper  attribute  of  a  string  gives 
its  maximum  length.  Note  that  assigning  a  value  to  a  variable  does  not 
change  the  variable’s  attributes.  Example: 

var  s.*  string  fyO.)  ;=  ”Eggs” 
var  /.•  string  (6)  :=  "Bacon  " 
s  :=  t 

At  all  times,  upper (s)  =  JO  and  upper(t)=6.  The  available  attributes  are: 
lo  wer  (reference  [ ,  dimension] ) 

Accepts  an  array  and  returns  the  lower  bound  of  the  array. 
upper  (reference  [ ,  dimension] ) 

Accepts  an  array  and  returns  the  upper  bound  of  the  array;  also 
accepts  a  string  and  returns  its  maximum  length. 

In  lower  and  upper,  dimension  is  a  compile-time  integer  expression,  which 
can  only  be  present  if  the  reference  is  a  multi-dimensioned  array.  It 
specifies  which  dimension,  where  the  first  is  1,  the  second  is  2  and  so  on. 
The  reference  does  not  need  to  be  initialized. 

nil(colleciionld) 

Accepts  a  collection  and  returns  the  collection’s  null  pointer. 

6.11  Predefined  Procedures 

The  following  procedures  are  pervasive  and  predefined. 
rand(vsiT  r;reaU 

Sets  r  to  the  next  value  of  a  sequence  of  pseudo  random  real 
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numbers  ihai  approximates  a  uniform  distribution  over  the  range  0 
<r  <  J.  Example; 

%  Randomly  print  a  sequence  of  phrases 

var  /-.  real 

loop 

rand(r) 

if  r  >  0.5  then 

put  ” Hi  ho,  hi  ho  " 

else 

put  "It's  ojf  to  work  we  ,qo  " 

end  if 
end  loop 

randinl(y'&T  /.  int,  low.  high.  intj 

Sets  /  to  the  next  value  of  a  sequence  of  pseudo  random  integers 
that  approximate  a  uniform  distribution  over  the  range  low  <=/ 
and  /<  =  high.  It  is  required  that  low  <  =  high. 

randomize 

This  is  a  procedure  with  no  parameters  that  resets  the  sequences  of 
pseudo  random  numbers  produced  by  rand  and  randini,  so  different 
executions  of  the  same  program  will  produce  different  results. 

randnexi(v^T  v.'real,  seq:  1..10) 

This  has  the  same  effect  on  r  as  does  rand,  with  the  difference  that 
seq  specifies  one  of  10  independent  and  repeatable  sequences  of 
pseudo  random  real  numbers. 

randseed(seed:  \nt,  seq:  I. .10) 

This  restarts  one  of  the  sequences  generated  by  randnext.  Each  res¬ 
tart  with  the  same  seed  causes  randnext  to  produce  the  same 
sequence  for  the  given  sequence. 

open(v2iT  streamNumber: int,  fileNa me: string,  mode.'string) 

The  fiieName  gives  the  name  of  a  file  that  is  to  be  read  from  or 
written  to.  The  streamNumber  parameter  is  set  to  the  stream 
number  to  be  used  for  the  file  in  get  or  put.  The  mode  must  be  "r” 
(for  read)  or  "w"  (for  write)  indicating  whether  the  stream  is  to  be 
read  from  or  written  to.  If  the  open  fails,  streamNumber  is  set  to 
zero. 

close(streamNumber:  int ) 

This  disassociates  the  stream  number  from  the  stream  it  is 
presently  designating. 

The  predefined  procedures  (rand,  randint.  randomize,  randnext,  randseed, 
open  and  dose)  have  side  effects.  As  a  result,  functions  are  not  allowed  to 
contain  them  or  to  directly  or  indirectly  call  procedures  that  contain  them. 
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6.12  Uninitialized  Values 

The  value  of  a  scalar,  string  or  set  that  is  not  initialized  must  not  be 
used  (fetched)  in  evaluating  an  expression.  For  example,  before  any  of  the 
following  are  executed,  variable  xmust  have  been  assigned  a  value. 

const  c  :=  X 
V  :  =  X  +  y 
P  (x  +  y) 

A  scalar,  string  or  set  need  not  be  initialized  before  being  passed  to  a  var 
parameter,  but  must  be  initialized  before  being  passed  to  a  non-var  parame¬ 
ter.  These  rules  imply  that  once  a  particular  scalar,  string  or  set  variable  is 
initialized,  it  will  stay  initialized. 

A  variable  that  has  been  declared  and  not  assigned  to  (and  not  initial¬ 
ized  in  its  declaration)  is  considered  to  be  uninitialized.  When  an  element 
of  a  collection  is  created  by  the  new  statement,  it  is  uninitialized.  Fields  of 
a  union  become  uninitialized  when  the  tag  statement  is  applied  to  the 
union.  Part  or  all  of  an  array,  record  or  union  variable  may  become  unini¬ 
tialized  when  the  variable  is  assigned  to,  according  to  the  initialization  of 
the  value  being  assigned. 

When  conditional  evaluation  of  an  expression  does  not  require  a  par¬ 
ticular  value,  the  value  need  not  be  initialized.  For  example,  in  the  follow¬ 
ing,  if  f  =  /0then  xneed  not  be  initialized: 

exit  when  i= 10  or  x=y 

A  nonscalar  that  is  not  a  string  or  set  can  be  assigned,  used  as  the  value  of 
a  const,  passed  to  a  parameter  (var  or  non-var)  or  returned  as  a  function 
result  without  being  initialized.  Note:  the  nonscalars  in  question  (i.e.  non¬ 
scalars  that  are  not  strings  or  sets)  are  arrays,  records  and  unions.  Scalar, 
string  or  set  components  of  nonscalar  types  must  be  initialized  before  being 
used  (fetched).  An  initialized  component  of  a  nonscalar  can  become  unini¬ 
tialized  due  to  assigning  to  the  containing  nonscalar  variable  or  changing 
the  tag  of  the  containing  union. 

A  checking  implementation  of  Turing  is  expected  to  enforce  these 
restrictions  on  the  use  of  uninitialized  values. 

6.13  Character  Collating  Sequence 

Certain  Turing  language  features,  notably  string  comparison  and  the 
chr  predefined  function,  depend  on  the  character  collating  sequence.  This  is 
the  sequence  that  determines  the  ordering  among  character  values.  There 
are  two  widely  used  collating  sequences:  ASCII  and  EBCDIC.  A  Turing 
implementation  is  expected  to  use  one  of  these,  with  preference  given  to 
ASCII.  Note  that  a  Turing  program  that  is  correct  assuming  one  of  these 
sequences  is  not  necessarily  correct  assuming  the  other. 

The  or^/ function  maps  a  character  value  to  its  corresponding  ASCII  or 
EBCDIC  value,  which  will  be  in  the  range  0..255.  For  standard  ASCII 
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characters,  the  range  is  limited  to  0..I27.  Therefore,  subject  to  limits  on 
the  domain  of  succ; 

For  cin  char:  chr(ord(c))  =  cand 

succ(c)  =  chr(ord(c)  +  J) 

The  ASCII  and  EBCDIC  sequences  share  the  important  property  that  digits 
are  contiguous. 

For  cin  "  0 8  succ(c)  =  chr(ord(c)  +  1) 

Therefore,  if  s  is  the  string  of  length  1  corresponding  to  integer  /  then 
ord(s)-ordC' 0  " )  =  /,  for  example,  ord(' 3  " )-ord(' O' )  =  3.  In  ASCII,  letter 
characters  are  also  contiguous: 

ordC'A  ")  =  ordCB")  -  I  =  ordf'C")  -2...  =  ordC'Z")  -25 
ordta  "J  =  ordt b  " )  —  I  =  ordf'c  ")  —  2...  =  ordC'z  " )  —  25 

Unfortunately,  in  EBCDIC  the  letters  are  not  contiguous;  there  are  gaps 
between  letters  /  and  J  and  between  R  and  S.  The  test  to  see  if  ASCII 
character  c  is  a  capital  letter  is: 

c>  =  "A  "  and  c  <  =  "Z" 

But  for  EBCDIC  character  c,  we  must  use: 

(c>  =  "A  "  and  c  <  =  ’7";  or 
(c  >  =  "J"  and  c  <  =”R”)ot 
(c  >  =  "S"  and  c  <  =  ”2”) 

Consult  standard  definitions  of  ASCII  and  EBCDIC  collating  sequences  for 
more  details. 

6.14  Source  Inclusion  Facility 

Other  source  files  may  be  included  as  part  of  a  program  using  the 
include  construct. 

An  includeConsiriict  is: 

include  expUcitString 

The  explicitString  gives  the  name  of  a  source  file  to  be  included  in  the 
compilation.  The  include  construct  is  replaced  in  the  program  source  by  the 
contents  of  the  specified  file. 

Include  constructs  can  appear  anywhere  in  a  program  and  can  contain 
any  valid  source  fragment.  Included  source  files  can  themselves  contain 
include  constructs. 
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APPENDIX:  Short  Forms 

The  following  forms  can  be  used  as  alternatives  for  the  syntax  given 
in  the  language  specification.  These  alternatives  shorten  frequently  used 
constructs. 


Long  form 

Short  form 

v  :=  V  +  (expn) 

V  .  =  V  —  (expn) 

V  .  =  V  *  (expn) 

i’  +  =  expn 
i'  —  =  expn 
i'  *=  expn 

if  expn  then  siaiemenls 
elsif  cx/7rtthen  statements 
else  statements 

end  if 

1  expn:  statements 

1  expn:  statements 

I :  statements 

1 

case  expn  of 

label  expns  :  statements 

case  expn  of 

1  expns  :  statements 

label  :  statements 
end  case 

1:  statements 
end  case 

union  id:  typeSpec  of 

label  expns  :  declarations 

union  id:  typeSpec  of 

1  expns  :  declarations 

label  :  declarations 

end  union 

1 :  declarations 

end  union 

loop 

statements 

end  loop 

{ 

statements 

1 

exit 

>  > 

exit  when  expn 

>  >  .•  expn 

return 

>>> 

result  expn 

>>>:  expn 

for  optionalld  :  expn.. expn 
statements 

end  for 

(  +  optionalld  :  expn.. expn 
statements 

1 
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for  decreasing  opiionalld  :  {—  oplionaUd  :  exptu.expn 


expn..expn 

statements 

end  for 

statements 

1 

and 

& 

not 

- 

put 

1 

get 

0 

array  indexTypesoi 

(  indexTypes 

procedure 

proc 

function 

fen 

pervasive 

import 

Example  using  short  forms. 

Long  form 

Short  form 

function  pervasive  GCD(iJ:  int) :  int 

fen  *GCD(iJ: int):  int 

var  x’.'int  ;=  / 

var  X  :=  i 

var  y'.'int  ;  =  j 

var  y  :  =  j 

loop 

(  >>;x=>' 

exit  when  x  =  y 

f  x>y:  X  -  =  y 

if  x>>’then 

1  :  y  —  =  X 

X  :=  x—y 

1 

else 

1 

y  :=  r-x 

>  >  >:  X 

end  if 

end  GCD 

end  loop 

result  X 

end  GCD 

46  THE  TUR ING  LANGUAGE  R  EPOR  T 


APPENDIX:  Keywords  and  Predefined  Identifiers 


Keywords  of  Turing 


all 

and 

array 

assert 

begin 

bind 

body 

boolean 

case 

collection 

const 

decreasing 

div 

else 

elsif 

end 

enum 

exit 

export 

false 

fen 

for 

forward 

free 

function 

get 

if 

import 

in 

include 

init 

int 

invariant 

label 

loop 

mod 

module 

new 

not 

of 

opaque 

or 

pervasive 

pointer 

post 

pre 

proc 

procedure 

put 

real 

record 

result 

return 

set 

skip 

string 

tag 

then 

to 

true 

type 

union 

var 

when 

Predefined  Identifiers  of  Turing 

abs 

arctan 

arctand 

ceil 

chr 

close 

cos 

cosd 

eof 

erealstr 

exp 

floor 

frealstr 

index 

intreal 

intstr 

length 

In 

lower 

max 

min 

nil 

open 

ord 

pred 

rand 

randint 

rand  next 

randomize 

randseed 

realstr 

repeat 

round 

sign 

sin 

Sind 

sqrt 

strint 

strreal 

succ 

upper 

APPENDIX: 

Implementation  Constraints  on  Integer,  String,  and  Real  Types 


Ideally,  there  should  be  no  implementation  constraints  on  Turing  pro¬ 
grams  (see  description  of  mathematical  and  implementation  constraints  in 
"Terminology  and  Basic  Concepts).  If  there  are  no  implementation  con¬ 
straints,  then  we  call  the  language  Ideal  Turing.  In  Ideal  Turing,  the  int 
type  has  an  infinite  range  of  values,  and  the  real  type  has  infinite  precision 
and  infinite  exponent  range;  that  is,  int  and  real  correspond  exactly  to  the 
mathematical  concepts  of  the  integers  and  the  real  numbers.  Similarly,  in 
Ideal  Turing  the  type  string  (without  an  explicit  length),  comprises  all 
sequences  of  characters,  with  no  limit  on  length. 
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Programs  written  in  Ideal  Turing  can  be  thought  of  as  mathematical 
objects,  rather  than  as  instructions  for  a  computer.  For  example: 

function  facioriaUi:  int ):  int 
pre  i  >  =  0 
if  /  =  Othen 
result  / 

else 

result  /  *  faciorial(i  —  1) 
end  if 

end  factorial 

In  Ideal  Turing,  this  function  gives  a  definition  of  "factorial"  for  all  non¬ 
negative  integers;  but  note  that  in  a  particular  implementation  of  Turing, 
integer  overflow  will  occur  for  large  values  of  /. 

In  most  practical  implementations  of  Turing,  int  will  be  limited  to  a 
range  of  integers;  minim. .maxim,  and  string  lengths  will  be  limited  to 
strmax.  To  support  program  portability,  it  is  recommended  that  in  all 
implementations,  minim  <  =  —  (2**31  —  I),  maxim  >  =  2**31  —  1.  and 
maxstr  >  =  255. 

In  an  implementation,  each  non-zero  real  r  may  be  represented  by  a 
floating  point  number  of  the  form; 

r  =  f  *  radix  **  e 

where: 

/is  the  significant  digits  part, 
e  is  the  exponent, 

radix  the  number  base  of  the  representation. 

It  is  assumed  that  /is  normalized,  i.e.,  if /is  not  zero  then 
1/radix  <  =  abs(f)  znd  abs(f)  <1.0 

If  /is  zero  then  e  is  also  zero.  The  number  of  digits  of  precision  of  /(in 
the  given  radix)  may  be  limited  to  numdigits. 

In  most  practical  implementations,  the  exponent  e  will  be  limited  to 
the  range  minexp..maxexp.  To  support  program  portability,  it  is  recom¬ 
mended  that  the  equivalent  base  10  range  of  exponents  be  at  least  —38. .38, 
i.e.,  that  minexp  *  ln(radix)/ln(10)  <  =  —  38  and  maxexp  *  ln(radix)/ln(!0) 
>  =  +J5. 

Floating  point  operators  provide  an  approximate  but  repeatable  result 
corresponding  to  the  exact  mathematical  result.  For  operators  *  and 

/  with  operands  a' and  y,  let  f  be  the  floating  point  result  and  let  be  the 
exact  result.  For  non-zero  M  the  relative  round  off  error  is  defined  as: 

abs((M-  F)/M) 

(If  M  is  exactly  zero,  Fshould  also  be  zero.)  Each  implementation  of  Tur¬ 
ing  is  to  specify  the  value  of  rreb  (relative  round  off  error  bound)  such  that 
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the  round-off  error  for  +,  — ,  *  and  /  never  exceeds  rreb.  To  support  pro¬ 
gram  portability,  it  is  recommended  that  rreb  be  at  most  le—  14. 

For  implementations  using  rounding  floating  point  operators,  such  as 
the  DEC  VAX,  rreb  is: 

rreb  =  .5*radix  **  (—  numdigits  +  1) 

For  implementations  using  chopping  floating  point  operators,  such  as  the 
IBM  370,  rreb  cdu  be  given  as: 

rreb  =  radix  **  (—  numdigits  +  I) 

Unfortunately,  there  are  some  implementations  if  floating  point  in  which 
neither  rounding  or  chopping  is  consistently  carried  out;  in  this  case,  rreb  is 
larger  than  would  be  calculated  by  these  formulas. 

Each  implementation  of  Turing  will  provide  a  standard  include  file 
called  limits  which  will  contain  definitions  of  minim,  maxim,  maxstr,  radix, 
minexp,  maxexp,  numdigits  and  rreb.  This  include  file  will  also  contain  the 
definition  of  functions  that  access  and  modify  exponents  of  a  floating  point 
values: 

getexp(r:  real ):  real 

Returns  exponent  e  of  r.  If  r  =  0,  then  e  =  0. 
setexp(r:  real ,  e:  int ):  real 

Returns  value  of  r  with  the  exponent  changed  to  e.  The  value  of  e 
must  be  in  the  range  minexp.. maxexp. 


APPENDIX:  Collected  Syntax  of  Turing 
1.  OVERVIEW 

This  collected  syntax  of  the  Turing  language  is  given  in  the  order  in 
which  language  constructs  are  presented  in  the  Turing  Language  Report. 
The  following  syntactic  notation  is  used: 

{item)  means  zero  or  more  of  the  item 
[item]  means  the  item  is  optional 

Be  warned:  although  this  notation  uses  braces  (...)  and  brackets  (...I  as  syn¬ 
tactic  notation,  another  use  of  braces  and  brackets  appears  in  the  appendix 
"Short  Forms".  That  appendix  explains  the  use  of  braces  and  brackets  as 
short  forms  for  loop  and  if  statements. 

Keywords  and  special  characters  are  given  in  boldface.  Nonterminals, 
e.g.,  typeSpecification,  are  given  in  italics.  The  following  abbreviations  are 
used: 

id  for  identifier 
expn  for  expression 
typeSpec  for  typeSpecfication 
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2.  PROGRAMS  AND  DECLARATIONS 
A  program  is: 

declaraiionsA  ndStatements 
DeclaraiionsAndStaiemenrs  are: 

I  declaraiionOrSiaiemenr] 

A  declaraiionOrSiaiemeni  is  one  of; 

'd. declaration  [;] 
statement  [;] 

A  declaration  is  one  of  the  following; 

a.  constantDeclaration 

b.  variableDeclaration 

c.  variableBinding 

d.  typeDeclaration 

e.  subprogramDeclaration 

f.  moduleDeclaration 

A  constantDeclaration  is  one  of: 

a.  const  [pervasive]  id  [:  typeSpec]  :=  expn 

b.  const  [pervasive]  id:  typeSpec 

:=  init  iinitializingValue  [jnitializingValue]  ) 

An  initializingValue  is  one  of: 

a.  compileTimeExpn 

b.  i n  i  t  ( initializing  Value  ( ,  initializing  Value]  ) 

A  variableDeclaration  is  one  of: 

a.  var  id[,icti'.  typeSpec  [:=  expn] 

b.  var  id\j(f\  :=  expn 

c.  var  id[jcti  :  typeSpec  \=  init  (initializingValue  [, initializingValue]  ) 

d.  var  id[,idi: 

array  compileTimeExpn. .expn  [, compileTimeExpn.. expn]  of  typeSpec 

e.  var  /r/ (,/r/l:  collection  of  typeSpec 

f.  var  id[jdi:  collection  of  forward  id 

A  variableBinding  is: 

bind  [var]  idto  variableRe/erence  [,  [var]  idto  variableRe/erence] 

Note;  A  collection  declaration  must  not  occur  in  a  subprogram.  A  bind 
declaration  must  not  occur  as  a  module  field. 

3.  TYPES 

A  typeDeclaration  is: 

type  [pervasive]  id:  typeSpec 
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A  typeSpec  is  one  of: 

a.  standardType 

b.  compileTimeExpn ..  compileTimeExpn 

c.  enum  (  id[jdi  ) 

d.  array  indexType  {,  indexType]  of  typeSpec 

e.  set  of  baseType 

f.  recordType 

g.  unionType 

h.  poinierType 

i.  namedType 

The  standardTypes  are; 

int 

real 

boolean 

string  [(  compileTimeExpn)] 

A  recordType  is: 

record 

id  {,ictl  :  typeSpec 
[id[,ich  :  typeSpec] 

end  record 

A  unionType  \s: 

union  [id]  \  indexType  of 

label  compileTimeExpn],  compileTimeExpn]  :  \id[,icti'.  typeSpec] 
llabei  compileTimeExpn  {,  compileTimeExpn]  :  [id{,ic/i  :  typeSpec]  ) 
[label  :  { id  {,  icti :  typeSpec]  ] 

end  union 

A  pointerType  is: 

pointer  to  collectionld 
A  namedType  is: 

[moduleld .]  type  Id 

An  indexType  is  the  typeSpec  of  an  "index  type"  (see  "Types  and  Type 
Declarations"). 

A  collectionld  is  the  id  of  a  collection. 

A  typeld  'xs  the  idol  a  type. 

A  moduleld \s  the  id  a  module. 


4.  SUBPROGRAMS  AND  MODULES 
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A  subprogramDecIa ration  is  one  of: 

(a)  subprogram  Header 

( import  L  ist] 
subprogram  Body 

(b)  forward  subprogram  Header 

import  (  (  [var]  (forward)  id  {,  (var)  (forward]  id]\) 

(c)  body  procedure  id 

subprogram  Body 

(d)  body  function  id 

subprogram  Body 

A  subprogramHeader  is  one  of; 

(a) procedure  (pervasive)  id 

[iparameterDeclaration  (,  parameterDeclaration]  )  ] 

(b) function  [pervasive)  id 

[{parameterDeclaration  {, parameterDeclaration]  )]  [id]  typeSpec 
A  parameterDeclaration  is  one  of: 

a.  (var)  id{,idi  :  parameterType 

b.  subprogramHeader 

A  parameterType  is  one  of; 

a.  typeSpec 

b.  array  compileTimeExpn ..  *  (,  compHeTimeExpn ..  *)  of  typeSpec 

c.  (array  compileTimeExpn ..  *  (,  compileTimeExpn ..  *)  of  )  string  (  *  ) 

An  importList  is: 

import ([  (var)  /J{,[var)  /d)  )  ) 

A  subprogramBody  is: 

[pre  booleanExpn] 

(init  id  :=  expn{,id:=  expn]] 

[post  booleanExpn] 
declarationsA  ndStatements 
end  id 

A  moduleDeclaration  is: 

module  (pervasive)  id 
( importList] 

(export  ((opaque)  /d(, (opaque)  /d)  )  ] 

[pre  boolean  Expression] 
declarationsA  ndStatements 
[invariant  boolean  Expression] 
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declarationsA  ndSiatements 
[post  boolean  Expression] 
end  id 

Note:  A  subprogram  or  module  declaration  must  not  occur  inside  a  subpro¬ 
gram  or  statement. 


5.  STATEMENTS  AND  INPUT/OUTPUT 
A  statement  is  one  of: 

a.  variabieReferencc  :  =  expn 

b.  [module !  d .]  procedure  Id  [(  expn  [,  expn]  )] 

c.  assert  booieanExpn 

d.  return 

e.  result  expn 

f.  if  booieanExpn  then 

declarationsA  ndStatements 
[elsif  booieanExpn  then 

declarationsA  ndStatements] 

[else 

declarationsA  ndStatements] 

end  if 

g.  loop 

[invariant  booieanExpn] 
declarationsA  ndStatements 

end  loop 

h.  exit  [when  booieanExpn] 

i.  case  expnoi 

label  compileTimeExpn  (,  compileTimeExpn]  :  declarationsAndStatements 
(label  compileTimeExpn  {,  compileTimeExpn]  :  declarationsAndStatements } 
[label  :  declarationsAndStatements] 
end  case 

j.  begin 

declarationsA  ndStatements 
end 

k.  new  coUectionld,  variabieReference 

l.  free  coUectionld,  variabieReference 

m.  for  [decreasing]  [id]  :  expn. .expn 

declarationsA  ndStatements 
[invariant  booieanExpn] 
end  for 

n.  tag  variabieReference,  expn 

o.  put  [:  streamNumber,]  putltem  [,  putltem]  [..] 

p.  get  [:  streamNumber,]  get  I  tern  {,  get  I  tern  } 
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A  purliem  is  one  of; 

a.  expn  [:  widthExpn  [:  fraction  IVidih  [:  exponeniiaH^idth]]] 

b.  skip 

A  geiltem  is  one  of: 

a .  va  ria  bleR  e  fere  nee 

b.  skip 

c.  variableReference.  * 

d.  variableReference.  width  Expn 

A  procediireld  \s  the  id  of  a  procedure. 

A  streamNumber,  widtliExpn,  fraction  Width,  or  exponent  Width  is  an  with 
a  non-negative  integer  value. 


6.  REFERENCES  AND  EXPRESSIONS 
A  variableReference  is  a  reference  denoting  a  variable. 

A  reference  is; 

( moduleld .  ]  id  [  componentSelector] 

A  componentSelector  is  one  of; 

a.  (  expn  {,  expn]  ) 

b.  .  id 

A  booleanExpn  is  an  expn  whose  value  is  true  or  false. 

A  compileTimeExpn  is  an  expn  whose  value  is  necessarily  computed  at 
compile-time  (see  "Compile-Time  Expressions"). 

An  expn  is  one  of  the  following; 

a.  reference 

b.  explicitConstant 

c.  [moduleld]  seiTypeld  (elemeniList) 

d.  substring 

e.  expn  infixOperator  expn 

f.  prefixOperator  expn 

g.  (  expn  ) 

An  infixOperator  is  one  of; 

a.  +  (integer  and  real  addition;  set  union;  string  catenation) 

b.  —  (integer  and  real  subtraction;  set  difference) 

c.  *  (integer  and  real  multiplication;  set  intersection) 

d.  /  (real  division) 

c.  di%  (truncating  integer  division) 

f.  mod  (integer  remainder) 

g.  **  (integer  and  real  exponentiation) 

h.  <  (less  than) 

i.  >  (greater  than) 
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j-  = 

(equal) 

k.  <  = 

(less  than  or  equal;  subset) 

1.  >  = 

(greater  than  or  equal;  superset) 

m.  not  = 

(not  equal) 

n.  and 

(boolean  intersection) 

0.  or 

(boolean  inclusive  or) 

p.  -  > 

(boolean  implication) 

q.  in 

(member  of  set) 

r.  not  in 

(not  member  of  set) 

A  prefixOperator 

is  one  of: 

a.  + 

b.  - 

c.  not 


The  order  of  precedence  is  among  the  following  classes  of  the  operators, 
decreasing  order  of  precedence; 

1.  •• 

2.  prefix  +,  — 

3.  *,  /,  div,  mod 

4.  infix  +,  - 

5.  <,  >,  =,  <=,  >=,  not  =,  in,  not  in 

6.  not 

7.  and 

8.  or 

9.  -> 

A  substring  is  one  of: 

1.  reference  (  expn  ..  expn  ) 

2.  reference  (  expn  ..*  ) 

3.  reference  (  expn  ) 

A  setTypeld  is  the  id  of  a  set  type. 

A  setConstructor  is: 

[module  Id.]  setTypeld  {  element  List) 

An  elementList  \s  one  of: 

a.  [expn  [, expn]] 

b.  all 
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abs,  37 
Addition,  32 

Aliasing,  1,4,  1 1,  20,  24 
all,  36,  54 
Alternative,  14,  27 
and,  33,  34,  45 
arctan,  37 
arctand,  37 
Array,  9,  45,  50 
bound  of,  40 
dynamic,  4,  12,  16,  19 
type,  12 

ASCII,  6,  42,  43 
assert,  21,  25,  26,  52 
Assignability,  type,  15,  16 
Assignment  statement,  26 
Attribute,  40 

Back  slash,  6 
Backspace,  6 
Base  Type,  12 
begin,  26,  27,  52 
bind,  4,  10,  24,  25,  26,  49 
Blank  padding,  35 
body,  17,  21,  51 
Boldface,  48 
Boolean,  11,  50 
operator,  34 
Bound  of  array,  40 
Bound,  12 

Call,  function,  32 
Call,  procedure,  26 
Carriage  return,  6 
case,  26,  27,  44,  52 
Catenation,  32,  34,  36 
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ceil,  38 

Character  collating  sequence,  42 
Character-oriented  input,  29 
Checking,  1,  5,  14,  34,  42 
chr,  36,  38,  42,  43 
close,  41 

Collating  sequence,  6,  35,  42 
Collection,  9,  10,  50 
cyclic,  10 
Comment,  2 
Comment,  end-of-line,  7 
Comparison  operator,  34 
Compile-time  constant,  2 
Compile-time  constant,  8 
Compile-time  expression,  36 
CompileTimeExpn,  53 
Complex,  23 
ComponentSelector,  31,  53 
const,  49 

Constant,  8,  24,  32,  49 
compile-time,  2,  8 
explicit,  2,  32 
explicit  boolean,  6 
explicit  integer,  6 
explicit  string,  6 
manifest,  2 
named,  2 
nonmanifest,  2 
real  explicit,  6 
run-time,  2,  8 

Constraint,  implementation,  5,  46 
mathematical,  5,  46 
run-time,  5 
Constructor,  set,  35 
Correctness  of  program,  1 
cos,  37 
cosd,  37 

Cyclic  collection,  10 

Dangling  pointer,  10 
Data  abstraction,  1 
Declaration  before  use,  2 


Declaration,  7,  8,  49 
Decreasing,  26,  28,  45,  52 
Default  stream,  28 
de/auliew,  39 
defaiilifw,  40 
Delete,  6 

Difference,  set,  32,  35 
Dimension,  40 
Direct  importing,  24 
div,  33,  34,  36 
Division,  32,  33 
Double  quote,  6 

Dynamic  array,  4,  9,  12,  14,  16,  19 
Dynamic  parameter,  4 
Dynamic  string,  19 

EBCDIC,  6,  42,  43 

ElementList,  35,  54 

else,  26,  44,  52 

elsif,  25,  44,  52 

End  of  line,  6,  7 

End  of  string,  6 

End-of-line  comment,  7 

enum,  12,  13,  16,  50 

Enumerated  type,  12,  32,  36 

eof,  30,  31,  36 

eos,  6,  29,  38 

Equal,  32 

Equivalence,  type,  15 
erealsir,  29,  39 
Escape,  6 
Exit,  27,  44,  52 
Exit  when,  26 
exp,  38 

Explicit  boolean  constant,  6 
Explicit  constant,  2,  32 
Explicit  integer  constant,  6 
Explicit  real  constant,  6 
Explicit  string  constant,  6 
ExplicitConsiani,  53 
expn  (expression),  32 
Exponent  part,  6 
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Exponent,  29 
Exponent  Width,  28,  39,  53 
Exponentiation,  32,  33 
Export,  22,  51 
Export  list,  3 
Expression,  53 

compile-time,  36 
run-time,  36 

Factorial,  47 
Faithful  execution,  5 
False,  6,  32 
fen,  45 

Floating  point,  47 
floor,  38 

for,  26,  27,  28,  44,  52 
Form  feed,  6,  7 
Formal  parameter,  3,  18 
Forward,  2,  8,  9,  17,  21,  51,  100 
Fraction  Width,  28,  39,  53 
frealstr,  29,  39 
Free,  10,  20,  27,  26,  52 
Function  call,  32 
Function,  3,  17,  45,  51 
mathematical,  37 
predefined,  36 
string,  36 
type  transfer,  38 
fwdefault,  29 

GCD,  45 

Get,  26,  28,  45,  52 
getexp,  48 

Greater  than,  32,  33 
id,l 

Ideal  Turing,  46 
Identifier,  2,  6 

predefined,  20,  46 
If,  25,  27,  44,  52 
Implementation  constraint,  5,  46 
Implication,  33,  34 
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Import  list,  3,  19,  20,  21 
import,  20,  22,  23,  45,  51 
Importing,  direct,  24 
Importing,  indirect,  24 
in,  33 
include,  43 
Include  file,  48 
Inclusion,  set,  35 
Inclusion,  source,  43 
Inclusive  or,  33,  34 
index,  31 
Index  type,  12 
Indirect  importing,  24 
Infix,  33 

InJixOperaior,  32,  53 
Information  hiding,  1 
init,  8,  9,  20,  21,  49,  51 
InitializingValue,  49 
Input,  28 

character-oriented,  29 
line-oriented,  29 
token-oriented,  29 
Input/output,  20 
int,  1 1,  50 

Interactive  programming,  1 
Intersection,  32,  33,  34,  35 
inrreal,  16,  34,  38 
inisfr,  29,  38 

invariant,  21,  22,  24,  26,  28,  51,  52 
Keyword,  46 

label,  13,  14,  26,  44,  50,  52 
Length,  35,  36,  40 
maximum,  12,  40 
Less  than,  32,  33 
Limit,  48 

Line-oriented  input,  29 
In,  38 

Logarithm,  natural,  38 
Loop  exit,  27 
loop,  26,  44,  52 
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Statement,  27 
lower,  40 

Machine-oriented,  5 
Manifest  constant,  2 
Mathematical  constraint,  5,  46 
Mathematical  function,  37 
max,  37 
maxexp,  48 

Maximum  length,  12,  40 

maxim,  48 

maxstr,  48 

Member  of  set,  33 

Membership,  35 

min,  37 

minexp,  48 

minim,  48 

mod,  33,  34,  36 

Mode,  41 

Module,  2,  3,  8,  11,  22,  50,  51 
Multiplication,  32 

Name,  type,  15 
Named  constant,  2 
NamedType,  50 
Natural  logarithm,  38 
New  line,  28 
New,  10,  20,  26,  27,  52 
nil,  10,  40 

Non-checking,  5,  13 
Non-var  parameter,  15 
Non-white  space,  30 
Nonmanifest  constant,  2 
Nonscalar  type,  12,  42 
Normalized,  47 
Not  equal,  33 
not,  33,  34,  45 
Notation,  syntactic,  7 
Null  pointer,  40 
numdigits,  47,  48 


Odd,  18 


opaque,  15,  22,  23,  51 
open,  41 
Operator,  33 
boolean,  34 
comparison,  34 
set,  35 
siring,  34 
or,  33 

ord,  36,  38,  42,  43 
Order  of  precedence,  33,  34 
Ordering  of  siring,  34 
Otherwise  alternative,  14,  27 
Output,  28 
Overflow,  34 

Padding,  blank,  35 
Parameter,  18,  42,  51 
dynamic,  4 
formal,  3,  18 
formal,  3 
non-var,  15 
reference,  18,  25 
var,  15,  16 

Parametric  subprogram,  18,  20 
pervasive,  8,  9,  1  1,  17,  19,  20,  22,  23,  45,  59,  51 
pointer,  10,  14,  50 
dangling,  10 
null,  40 

post,  20,  21,  24,  51,  52 
pre,  20,  22,  24,  51 
Precedence,  order  of,  33,  54 
pred,  36 

Predefined  function,  36 
Predefined  identifier,  20,  46 
Predefined  procedure,  40 
Prefix,  33 

PrefixOperator,  32,  54 
proc,  45 

Procedure  call,  26 
Procedure,  3,  45,  51 
parametric,  20 
predefined,  40 
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Program  correctness,  1 
Program,  7,  49 
Programming  interactive,  1 
Pseudo  random,  40 
Put  statement,  28,  29 
Put,  26,  45,  52 

Quote,  double,  6 

Radix,  47,  48 
rand,  40 
randint,  41 
randnext,  41 
Random,  pseudo,  40 
randomize,  41 
randseed,  41 
Read-only,  3,  10,  24 
real,  11,  50 
realstr,  29,  39 
record,  9,  13,  50 
variant,  13 
Redeclaration,  8 
Reference  parameter,  4,  18,  25 
Reference,  31,  53 
Relative  round  off  error,  47 
Remainder,  32,  33 
repeat,  29,  37 
Resource  exhaustion,  5 
Restriction,  24 
result  statement,  26,  27 
Result  type,  20 
Result,  18,  20,  25,  21;  44,  52 
return  statement,  26 
Return,  17,  25,  27,  44,  52 
Root  type,  16,  17 
round,  38 
Round  off,  47 
rreb,  47,  48 

Run-time  constant,  2,  8 
Run-time  constraint,  5 
Run-time  expression,  36 


Scalar  type,  12 
Scope,  2,  8 
Seed,  41 
Semicolon,  8 
Separator,  7 

Sequence,  collating,  35,  42 

Set  constructor,  35 

Set  difference,  32,  35 

Set  inclusion,  35 

Set  intersection,  32,  35 

Set  operator,  35 

Set  type,  12 

Set  union,  35 

set,  50 

SetConstructor,  35,  54 
setexp,  48 

Short  form,  44,  45 
Side  effect,  4,  20,  28,  41 
sign,  37 

Significant  digits,  6,  47 
sin,  33,  37 
Sind,  37 

skip,  28,  29,  30,  53 
Source  inclusion,  43 
sqrt,  37 
Stack,  3 

Standard  type,  12 
SiandardType,  1 1 ,  50 
Statement,  7,  25,  49,  52 
assert,  26 
assignment,  26 
begin,  27 
case,  27 
exit,  27 
for,  27 
free,  27 
get,  28 
if,  27 
loop,  27 
new,  27 
put,  28,  29 
result,  26,  27 
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return,  26 
tag,  13,  28,  42 
Stream  number,  36 
Stream,  default,  28 
streamNumber,  53 
String  function,  36 
String  length,  40 
String  maximum  length,  12 
String  operator,  34 
String  type,  15 
String!*),  19 
String,  11,  16,  19,  46,  50 
dynamic,  19 
ordering  of,  34 
strinu  30,  38 
strreal,  30,  40 
Subprogram,  3,  8,  17,  50 
forward,  21 
parametric,  18,  294 
SubprogratnHeader,  51 
Subrange  type,  12 
Subscripting,  10 
Substring,  32,  34,  35,  53,  54 
Subtraction,  32 
succ,  36,  43 

Syntactic  notation,  7,  48 
Syntax  of  Turing,  48 

Tag,  13,  20,  26,  28,  32,  42,  52 

Target  type,  16 

then,  25,  52 

Token,  29,  30 

Token-oriented  input,  29 

true,  6,  32 

trunc,  33 

Turing,  1 

Turing,  Ideal,  46 

Turing,  syntax  of,  48 

Type  assignability,  15 

Type  equivalence,  15 

Type  name,  15 

Type  target,  16 


Type  transfer  function,  38 
Type,  8,  11,49 
array,  12 

enumerated,  12,  32 
index,  12 
nonscalar,  12 
opaque,  15 
record,  13 
result,  20 
root,  16,  17 
scalar,  12 
set,  12 
string,  15 
subrange,  12 
union,  13 
type  Spec,  1 1 ,  50 

Underflow,  34 
Uniform  distribution,  41 
uninitchar,  6,  29,  38 
Uninitialized  value,  42 
Union  type,  13 
set,  35 

union,  9,  32,  44,  50 
upper,  19,  40 

var  parameter,  4,  15,  16 
var,  49 

Variable,  1,  8,  9,  49 
read-only,  3 
variableBinding,  8 
Variant  record  (unions),  1,13 
Verification,  1 
Visibility,  2 

when,  44,  52 
White  space,  29,  30 
Width,  39 

WidthEixpn,  28,  30,  53 
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